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ABSTRACT 


Geoffrion's structured modeling provides a very promising 
framework for the development of future model management 
systems(MMS). This thesis presents a prototype that converts 
a mathematical representation of simple LP models’ to 
Geoffrion's structured modeling representations. The general 
procedures presented could be extended to convert an LP model 
represented in any precisely defined mathematical language. 
This would allow the development of integrated modeling 
environments based upon the structured modeling framework 
which would accept input in a number of common LP language 


formats. 
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I. INTRODUCTION 


The most widely accepted framework for building decision 
Support systems (DSS) suggests three major components: the 
dialogue generation and management software which controls the 
DSS - user interface, the data base management software (DBMS) 
and the model management system software (MMS). [Ref. l:p. 
21] 

Significant advances have been made in improving the 
dialogue management and DBMS components of DSS. Color 
graphics, windowing systems, pull down menus and simple input 
devices such as the mouse, provide the basic tools to build 
a user-friendly interface. The implementation of relational 
database theory has provided a number of powerful and flexible 
DBMS. 

The third component, the MMS, is the area where the 
greatest amount of work remains to be done. Management 
science and operations research (MS/OR) models have made 
Significant contributions in specific applications. However, 


these models have been largely stand-alone, costly to build, 


and have dealt primarily with well structured problem 
domains. 
More recent modeling systems e.g., IFPS [Ref 2] have 


attempted to provide a more general tool for creating models 


that assist the decision maker. The objective of these new 
systems is to increase the productivity of the model builder 
and to make the modeling process more acceptable to the non- 
technical user. Despite these improvements, no integrated 
modeling environment exists today that can meet the goals 
described by the Sprague and Carlson framework [Ref. 3:p 260]. 

This lack of progress is particularly troubling because 
the modeling component is the very heart of the DSS, As 
Sprague declares: 

...-1it is the integration of models into the information 
system that moves an MIS which is based on integrated 
reporting and data base/ data communication into a full 
decision support system.[Ref. l:p. 257] 

Managers have traditionally been reluctant to recognize 
the value of MS/OR models. The reasons for this reluctance 
has been discussed at length in the literature (Ref. 
33p.2597Ref.~ 4:p. 466;REE. “Sep. S36;Ret. 6 3ore 704 > Rome 
7:p.548). The most common reason given for managers' lack of 
acceptance is the poor model/user interface in existing 
models. Many modeling software systems present the manager 
with unnecessary detail, are too technical in nature and are 
difficult for the manager to understand. 

To overcome the managers' reluctance a MMS needs to 
combine the power of MS/OR algorithms for solving large, 


complex models with a flexible user interface that allows the 


model and the results of the modeling process to be presented 
in a comprehensible manner to a manager. Geoffrion's 
structured modeling provides a formal framework for describing 
models which aims to provide the foundation for such a system 
Peer. 7]. 

In this thesis we will construct a prototype parser which 
will convert mathematical representations of simple linear 
programming (LP) models to Geoffrion's structured modeling 
representations. We will attempt to demonstrate that the 
algorithms presented here can be extended to convert any LP 
modeling language to a structured modeling representation. 
This would allow development of integrated modeling 
environments based upon the foundation of structured modeling 
which could accept input in a number of common LP language 
formats. 

This work is organized as follows: Sections II and III 
provide an overview of model management and structured 
modeling. Section IV discusses the algorithms for automatic 
generation of structured modeling representations from the LP 
language. Section V will present the implementation of the 
prototype parser and Section VI will present the limitations 
of the prototype as well as possible extensions for future 


development. 


aes Ee MODEL MANAGEMENT 


The rapid growth in the number of personal computers in 
recent years has fueled an interest in model-based decision 
making. The introduction of spreadsheet software has given 
the non-technical manager a user-friendly vehicle for creating 
models. These spreadsheets make it possible for the manager 
to create models for a wide variety of applications. (e.g., 
capital budgeting, human resource planning, resource 
allocation or portfolio selection) 

While this growth in the number of models can have a 
positive effect on an organization it also creates a number 
of managerial problems. When important decisions are based 
upon models it is imperative that the models are valid, 
correctly applied and based upon current data. Serious 
questions exist about the validity, integrity and security of 
the spreadsheet models used in decision making. These 
problems are very similar to the problems that led to the 
realization of the need for effective data management. [Ref 
Spee se] 

The decentralized nature of spreadsheet modeling makes 
control very difficult. As the use of models continues to 


grow, it is important for managers to realize the potential 


threat these problems pose for their organization. Managers 
must begin to recognize that models, like data, are an 
organizational resource that require management. 

Model management systems (MMS) have been proposed to deal 
with these problems associated with decentralized modeling. 
An MMS performs functions for models analogous to those that 
a DBMS performs for data. An MMS contains a validated, well- 
documented model base accessible by all authorized users. The 
MMS must provide support for: 


1. A consistent method for generating and updating 
models.[{Ref l:p. 262] 


2. A flexible method for communicating modeling results in 
a manner suitable for technical and non-technical 
mserswikRef 7:p. 549} 

3. Integration of models with the existing data. 

4. Integration with advanced solver techniques. 

5. A control mechanism for ensuring the security and 
integrity of models in the model base.[Ref 6] 

The central MMS design issue is the method for 
representation and storage of the models in the model base. 
The model representation must be flexible enough to support 
the needs of all the users of the system. This requires a 


model representation that allows "views" of the model at 


different levels of complexity, including a analytical view 


for the technical model builder and a natural language view 
for communication with the non-technical user of the MMS [Ref. 
Ti pew oa. 

There have been a number of methods suggested for 
representing and storing the models in the model base.[Ref 1: 
De Zee | The traditional method is to represent models as 
subroutines in a high level language. In this approach the 
model base consists of a library of subroutines that is 
accessed by a subroutine call. 

This is the "black box" method of modeling that has made 
managers reluctant to use models for decision making. The 
interaction between the model and the user is very limited. 
The user supplies the data and the model produces "the 
result". There is no feature for explaining the models or the 
assumptions upon which they are based. 

A related approach represents models as statements in a 
modeling language such as GAMS.[Ref 8] In this approach the 
user defines the models in an algebraic language. The models 
are solved through the use of a common optimizer. This 
approach allows the user to focus on the modeling process 
rather than on developing the solver algorithm. Despite this 
improvement, the models-as-statements approach is limited in 
its ability to interact with the users. There is no feature 


for ad hoc queries of the model base. The algebraic 


representation of the model is an improvement over the model- 
as-subroutines approach but is still inadequate for 
communication purposes. 

The most promising approach represents models as data. [Ref 
9:p. 36] This approach uses existing DBMS technology to store 
and access models, simplifying the integration of models and 
data and allowing flexible queries of the model base to aid 
the user throughout the modeling process. 

Geoffrion's structured modeling offers a promising 
theoretical framework for implementation of a model management 
system. The structured modeling representation provides 
support for multiple views of models and_= graphical 
representations of models to enhance communication and improve 
acceptance of modeling by non-technical users. 

Our prototype will use the models-as-data approach to 
store Geoffrion's structured modeling representation. 


Structured modeling is described in the next section. 


III. STRUCTURED MODELING 


Structured modeling, developed by Geoffrion[Ref. 7], is a 
very general approach to modeling. Its goal is to foster 
development of a new generation of modeling systems with the 
following features [Ref. 7:p. 549]: 

1. A conceptual framework for modeling based upon a single 


model representation format suitable for managerial 
communication, mathematical use and direct computer 


execution. 
2. Independence of model representation and model solution 
3. Sufficient generality to encompass most of the modeling 
paradigms that MS/OR and kindred model-based fields have 
developed. 


4. Support for the entire modeling life cycle. 


5. Integrated facilities for data management and ad hoc 
queries. 
6. Desktop implementation with a modern user's 


interface,including immediate expression evaluation as 
in spreadsheet software. 


Our prototype will convert mathematical representations of 
LP models to Geoffrion's structured modeling representations. 
Here we provide the basics of structured modeling that are 
relevant to our prototype and discuss the features of 
structured modeling that make it attractive as a basis for MMS 
development. 

We will provide an example of how a LP model is 


represented in structured modeling. The example model we have 


chosen is the same classic transportation problem used by 
Geoffrion [Ref. 7: p. 570]. This model describes plants which 
manufacture a product that must be shipped to customers. 
There are production constraints for each plant and demand 
constraints for each customer. The objective is to minimize 
the total cost of shipping the product within the constraints 
given. 

We will also use this example in Section V, which will 
allow the reader to compare the representation here to the 
one generated by our prototype. This informal approach 
provides only those elements of structured modeling necessary 
to understand the prototype implementation. For a more 


complete coverage of the subject see Geoffrion (Ref. 7]. 


A. PRINCIPLES OF STRUCTURED MODELING 

A structured model is composed of elements. These 
elements are either primitive or else defined in terms of 
their relationship to the other elements. There are six types 
of elements: 

1. Primitive entity elements (pe) have no value and usually 
represent things or concepts in the model (e.g., a plant 
in the transportation problem). 

2. Compound entity elements (ce) have no value and usually 
represent concepts that are defined in terms of other 
things or concepts. (e.g., a plant-customer link in the 


transportation problem defined in terms of a certain 
plant and a certain customer). 


3. Attribute elements (a) have a constant value and 
represent a property of a thing or concept (e.%g-;, ebe 
supply capacity of a particular plant in the 
transportation problem). 

4. Variable attribute elements (va) are like attribute 
elements but their value is discretionary and likely to 
change. (e.g., the flow of goods over a particular 
plant-customer link in the transportation problem). 

5. Function elements (f) have a value that is derived by a 
specific equation or rule (e.g., the total cost 
associated with all flows ina transportation problem). 

6. Test elements (t) are like function elements except that 
their value must be either true or false. (e.g., whether 
the demand requirement is met for a particular customer 
in the transportation problem). | 

The structured modeling framework consists of three 
levels: elemental structure, generic structure, and modular 
structure. 

The elemental structure is the most basic level of the 
model. It provides the details of a specific instance of the 
model. Geoffrion defines the elemental structure in terms of 
a directed acyclic attribute graph of elements (nodes) and 
calls' (directed arcs). In all but the simplest of model 
instances the elemental graph will contain many arcs and 
nodes. In general this graph is too cluttered to be useful. 

The generic structure is a generalization of the elemental 
structure. This structure captures the natural familial 
groupings of elements. Similar elements are grouped such that 
every element in a genus calls the same genera and is called 


‘A "call" represents the participation of the called element 


in the definition of the calling element. The head node is the 
calling element and the tail node is the called element. 
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called by the same genera. This property is called generic 
Simeebarity. {[Ref. 7:p. 553) 

The generic structure can also be represented by a 
directed acyclic attribute graph called a genus graph. Figure 
1 is an example genus graph for the transportation problem. 

The genus graph is an example of the communication value 
of the structured modeling representations. The genus graph 
is dimension independent [Ref 7:p. 556] thus providing an 
insight into how the model works without the unnecessary 
details of the elemental structure. 

The modular structure groups elements into conceptual 
units called modules. For example, in the transportation 
problem, the customer genus and the demand genus could be 
grouped into a "customer data" module. These modules allow 
the model to be viewed at different levels of complexity. The 
modular structure can be represented graphically as a rooted 
tree. The root represents the entire model and each terminal 
node is a genus. Only certain modular structures are allowed. 
Valid structures can be represented by an indented list that 
contains no forward references. This indented list is called 
the modular outline. 

In addition to the graph based representations of models, 
Geoffrion has proposed a structured mcedeling language (SML) 
for representing schemas to reflect the generic and modular 
structure of models.[{Ref. 10] Figure 2 is an example of the 


schema for the transportation problem. 


ital 





Figure 1: Genus Graph for the Transportation Problem 
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&SDATA SOURCE DATA 
PLANTi /pe/ There is a list of PLANTS. 


SUP(PLANTi) /a/ {PLANT}:R+ Every PLANT has a SUPPLY 
capacity measured in tons. 


&CDATA CUSTOMER DATA 
CUST}) /pe/ There is a list of CUSTOMERS. 


DEM(CUSTJ) /a/ ({(CUST} :R+ Every CUSTOMER has a 
nonnegative DEMAND measured in tons. 


&TDATA TRANSPORTATION DATA 


LINK(PLANTi,CUSTJ) /ce/ Select {PLANT}X{CUST} 

where 1 covers {PLANT},j covers {CUST} There are some 
transportation LINKS from PLANT to CUSTOMERS. There 
must be at least one LINK incident to each PLANT, and 
at least one LINK incident to each CUSTOMER. 


FLOW(LINKij) /va/ {LINK} :R+ There can be a non- 
negative transportation FLOW (in tons) over each link. 





COST(LINKij) /a/ {LINK} :R Every LINK has a 
TRANSPORTATION COST RATE for use in $/ton. 


$(COSTij,FLOWij) /£/;SUMiSUMj (COSTij*FLOWij) There is a 
TOTAL COST associated with all flows. 


T:SUP(FLOWij,SUPi) /t/ {PLANT} ;SUM}(FLOWij) <= SUPi Is 
the total FLOW leaving the PLANT less than or equal to 
its SUPPLY CAPACITY? This is called the SUPPLY TEST. 
T:DEM(FLOWij,DEMj) /t/ {CUST} ;SUMi(FLOWij) = DEMj Is 


the total FLOW arriving at a CUSTOMER exactly equal to 
its DEMAND? This is called the DEMAND TEST. 


Figure 2: Schema for the Transportation Model[Ref. 7:p. 570] 
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This SML-based schema defines the entire model structure 
independent of the elemental detail and is precisely defined 
to allow direct computer execution [Ref. 7:p. 562], [Ref. 10]. 
We will only provide an overview of the schema syntax here. 

The schema is composed of two kinds of paragraphs: module 
paragraphs and genus paragraphs. The paragraphs are indented 
and organized in the same monotone order as the modular 
outline. Each paragraph consists of a formal part followed 
by an optional informal text interpretation part. 

A module paragraph consists of the mnemonic module name, 
preceded by an ampersand (&) and an optional interpretation. 
Geoffrion argues strongly that the interpretation is a 
critical part of the modeling process. 

The genus paragraph syntax will vary by element type. 
Figure 3 gives the general syntax for a genus paragraph. 


Optional items are enclosed in brackets. 


GNAME [new index][ (generic calling sequence) ] 


/type/ [index set statement][:range statement] 
[;generic rule statement] [interpretation]. 





Figure 3: General Syntax for a Genus Paragraph 


GNAME is the mnemonic genus name. The genus name is 


followed by an index for those genera that are self-indexed. 
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/type/ is the genus type declaration and must correspond to 
one of the six element types defined in structured modeling. 
The index set statement defines the permissible population of 
the genus. The range statement defines the permissible values 
for an attribute or variable attribute genus. The generic 
rule defines the rule by which the values of a function or 
test genus are derived. 

The structured modeling framework has much to offer as a 
foundation for future model management systems. Ina single 
model representation it provides a computer executable model 
definition and a flexible communication device. 

Our prototype will focus on the genus graph and the text 
based schema representations of structured modeling. We will 
demonstrate how the structure of a LP model determines its 
structured modeling representation. The next section presents 


the theory upon which our conversion algorithm is based. 
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IV. GENERATION OF GRAPHS FROM LINEAR PROGRAMMING MODELS 


A linear program (LP) typically deals with the problem of 
allocating limited resources, subject to a set of constraints, 
in a way that maximizes return or minimizes cost.[Ref l1l:p. 
156] 

This section will describe our method of converting 
mathematical representations of simple* LP models. to 
structured model representations. This algorithm is based 
upon the relationship between LP model components’) and 
structured model genus types identified by Geoffrion and 
further amplified by Dolk.[Ref 12] 

Figure 4 is a the standard form of the LP model using our 
mathematical notation. The following conventions are used: 

1. Summations are identified by the token @SUM. The 
expression following the summation will be enclosed in 
parenthesis. (e.g., @SUMi(Xi) or @SUMiSUM}(Xij) ) 

2. All variables and coefficients are in uppercase. 

3. All indices are in lower case. 

Appendix A contains a precise definition of our 
notation. This mathematical notation is a subset of the 


generic rule grammar defined by Geffrion.{Ref 10:p. A4-1] 


“simple in this context means that there are no indices that 


depend upon other indices and that all indices range over their 


full set of values. 
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maximize: (0) Z = @SUMjJ(Cj * Xj) 


subject to: (1) @SUM)(Alj * Xj) <= Bi 


(2) Xj >= 0 





Figure 4: Standard mathematical form of LP model 


This model consists of an objective function (equation 
(O)), a set of constraints (equations (1) and (2)), 
coefficients (C and A),right hand sides (0 and B), decision 
variables (X), and indices (i and j). 

Dolk has identified the following relationships between 
the components of an LP model and structured modeling genus 


types {Ref 12:p. 3]: 


1. Each index is a primitive entity. 

2. The objective function is a function genus. 

3. Each constraint corresponds to a test genus. 

4. Coefficients are attributes associated with the 
primitive entity or compound entity that corresponds to 
its index. 

5. Right hand sides are attributes. 


6. Decision variables are variable attributes. 


7. For components with multiple indices (e.g., Aij) the 
multiple indices correspond to a compound entity. 


The next requirement is to define the calling sequence 
which determines the genus graph structure. Dolk provides the 


following propositions [Ref 12:p. 3]: 


x] 


1. Every test genus is a leaf node® in the genus graph. 


2. The objective function of the mathematical model is a 
leaf node in the genus graph. 


3. Each index in the mathematical model is a root node.* 


4. The function and test genera will have only attributes 
or variable attributes in their calling sequences. 


5. All variable attributes will appear in at least one test 
genus' calling sequence and the objective function 
genus. 

6. Any component with multiple indices will have several 
primitive entities in its calling sequence, one for each 
index. 

From these propositions we can identify each genus, its 
genus type, and its calling sequence. Further, each equation 
represents the generic rule for the corresponding test or 
function genus. 

With this information we can construct the genus graph 
from a mathematical representation of a model. Figure 5 is 
an example genus graph constructed for the standard form of 
the LP model. This graph, while accurate, is not particularly 
enlightening without meaningful mnemonic names to identify 


each genus node. Our parser, described in detail in the next 


section, will allow the user to add mnemonic names. 


3~ leaf node appears in no other genus! calling sequence. [In 
the graph it will have no outgoing arcs. 
“A root node has no calling sequence. It will have no 


incoming arcs in the graph. 
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VA) 


EQN(1) /t/ AT /t/ 
Aij /a/ Cl ae Veal 
Bi /a/ \ 
lj /ce/ 
i /pe/ | /pe 


Figure 5: Genus Graph for the Standard Form of the LP model 
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We cannot determine the generic range of attribute genera, 
the index set statement, or the natural language 
interpretation from the mathematical model. However, we can 
construct an approximation of the text based schema. 

Our prototype will parse each equation and create a symbol 
table for the model. We then apply the relationships and 
propositions described here to construct the structured 
modeling representations from the symbol table. The next 
section will provide the implementation details of the 
prototype and provide an example conversion oof the 


transportation model. 
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V. IMPLEMENTATION OF THE PROTOTYPE 


Our prototype, LP/SM, was designed to allow the user to 
enter a mathematical description of a simple LP model, convert 
it to a corresponding structured modeling representation, 
adding mnemonic names if desired, and then display this model 
graphically as a structured modeling genus graph or as an 
SML-based schema. An edit feature allows the user to enter 
the natural language interpretation, the generic range and the 
index set statement which cannot be automatically generated 
by LP/SM. Here we describe the LP/SM implementation and 
provide an example conversion of the transportation problem. 
A. HARDWARE USED IN THIS IMPLEMENTATION 

LP/SM was designed on an IBM PS/2 model 80 running the 
MS-DOS operating system. We found this to be an excellent 
environment for development. The 80386 CPU, provides rapid 
response and sufficient computing power for expansion of the 
prototype. The Video Graphics Array (VGA) graphics capability 
of the PS/2 ensures compatibility with all current PC graphics 
standards. The extended memory of the PS/2 makes it possible 


s) 


to implement applications that are memory intensive” (e.g., 


Grapes)... 


"Our prototype requires at least 1.5 MB of memory to support 
the ORACLE RBDMS. 
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LP/SM was designed to ensure portability to the IBM PC AT 
environment. This required using Enhanced Graphics Array 
(EGA) graphics for display of the genus graph reducing the 
screen resolution to 640 pixels horizontally by 350 pixels 
vertically (640x350). While this resolution is limiting and 
makes some of the genus graph arcs appear jagged, it was 
sufficient fet. our prototype implementation. Our 
recommendations for future graphics enhancements are discussed 
inp oeCti1on Wire 
B. SOFTWARE USED IN THIS IMPLEMENTATION 

The parser for our prototype was generated using 
automatic program generators. The program generators we chose 
were LEX: A Lexical Analyzer Generator [Ref. 13] and YACC: Yet 
Another Compiler Compiler [Ref. 14]. We chose this approach 
for a number of reasons: 

1. The resulting product is produced more quickly. 

2. The resulting product is flexible and adaptable. YACC 
will "read" any input that can be can be defined in its 
specification language. This specification language 
Closely resembles BNF notation. 

LEX and YACC were designed to work together to build a 
parser for processing the input to a computer program. The 


user provides LEX and YACC with a high-level description of 


| nce will accept a very general class of grammars - LALR(1) 
with disambiguity rules.[Ref 15:p. 1] 
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the input language and these tools generate the source code 
for a parser which is capable of recognizing legal constructs 
of the defined language. LEX and YACC were written for the 
UNIX operating system, however their output is C source code 
which can be ported to the MS-DOS environment. 
The remainder of the prototype was written in Microsoft 
C. We found Microsoft C had a number of advantages for our 
prototype implementation: 
1. Complete MS-DOS function library and ANSI standard 
library functions to ensure compatibility with the code 
generated by LEX and YACC. 


2. Complete Graphics function library. 


3. Compatibility with the code generated by the ORACLE 
precompiler. 


4. Helpful programmer support tools including the make 
facility for managing maintenance of source code and a 
powerful source level debugger. 

Our prototype uses the ORACLE relational database 
management system (RDBMS) to store the structured models. 
ORACLE was chosen because it fully supports the ANSI standard 
SQL data manipulation language and contains a high-level 
programming language interface. 

SQL provides powerful data manipulation functions allowing 


for flexible queries of our model base and eventual 


integration of models with their corresponding data tables. 
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ORACLE's Cc language interface extends the data 
manipulation functions of SQL by allowing the use of 
procedural programming language constructs (e.g., IF-THEN ELSE 
statements). 

C. DESIGN OVERVIEW 

LP/SM consists of a number of separate modules that 
correspond to the functions displayed on the main menu. This 
modular approach will simplify future enhancements to the 
prototype. 

Listed below are the options that appear on the main menu 
when the program is run: 

1. Enter Model 

2. Edit Model Schema 

3. Display Model Graph 
4. Display Model Schema 
Sarl 

This menu was designed to function with a multiple-model 
model base, however since our prototype only allows a single 
model the user must initially select the "Enter Model" option. 
Any other selection will result in a pop-up window containing 
an error message. 

When the "Enter model" option is selected the prototype 
performs the following functions (See Figure 6): 

1. Parses each equation of the mathematical representation 
of the model to ensure the syntax is correct. When a 


valid equation is recognized the equation tokens are 
entered into the parser's symbol table. 
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MATHEMATICAL MODEL DESCRIPTION 


EQUATIONS 


PARSE EQUATIONS 


SYMBOL TABLE 


APPLY LP/SM CONVERSION RULES 


SM ELEMENTS AND RELSHIPS 


ENTER MNEMONIC NAMES 


MNEMONIC SM ELEMENTS AND RELSHIPS 


BUILD CALLING SEQUENCE 
AND GENERIC RULES 


GENERIC STRUCTURE OF MODEL 


CREATE MONOTONE ORDER 
AND MODULAR STRUCTURE 


GENERIC AND MODULAR STRUCTURE 


STRUCTURED MODELING REPRESENTATION 





Figure 6: Overview of the LP/SM conversion process 
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2. Translates each element in the parser's symbol table 
entries to the corresponding structured modeling 
elements using the relationships and propositions 
described in Section IV. 

3. Accepts the user defined mnemonic names corresponding 
to each structured modeling element found in the 
translation of the symbol table. 

4. Substitutes user mnemonic names for each element, builds 
the mnemonic calling sequence for each of the 
non-primitive elements and constructs the mnemonic 
generic rule for each of the test and function elements. 

5. Builds a simple modular outline where each element is 
a module of the model with no sub-modules. The monotone 
order is determined by a simple topological sort of the 
generic structure calls. This topological sort is 
modified to place the attributes that call primitive 
entities immediately following the primitive entity in 
the modular outline. This is done to improve the 
appearance of the model schema. 


6. Writes the structured modeling description of the LP 
model to the ORACLE database. 


The following sections describe the implementation of each 
of the main menu functions. 
1. Parser Implementation 
The first step in constructing a parser is to define 
the language to be parsed. To define any input language we 
must clearly specify the basic symbols allowed (tokens) in the 
language and the define rules for combining these symbols into 
legal constructs (non-terminal symbols) in the language. 
These tokens and the rules for combining them comprise the 
grammar for the input language. 
The final element of language definition is the 
Semantics of the language. Semantic rules determine if a 


language construct that meets the syntax requirements is 


26 


meaningful. For example if the syntax requires that an index 
follow the @SUM token, the semantic rules would determine if 
the index used after the @SUM token is correct in the context 
of the entire equation. Semantic rules are much more 
difficult to define. Our prototype parser deals solely with 
the syntax of the language. This limitation is discussed 
further in Section VI. 

Use of the program generators requires defining the 
input language in two steps. The input to LEX defines the 
regular expressions that represent legal tokens of the 
language and actions to take when a token is found [Ref 13:p. 
1}. The input to YACC defines the rules by which these tokens 
can be combined to form legal constructs of the language and 
the actions to take when a legal construct is recognized [Ref 
14:p. 1). Appendix B contains our input to LEX and YACC. 

LEX produces a lexical scanner which reads from the 
input character stream and breaks it into legal tokens of the 
language. These tokens are passed to the parser created by 
YACC until a legal language construct is found or a syntax 
GCilaser Occurs. 

When the "Enter Model" option is selected, the user 
will be prompted to enter the model name. The user will then 


be prompted to enter the objective function. Each equation 
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will be parsed as it is entered. If a syntax error occurs an 
error message will appear and the user must reenter the 
objective function. 

The cursor keys combined with the insert and delete 
keys provide a simple edit feature to assist the user in 
correcting the syntax error. 

When an equation is correctly entered the user will 
be prompted for the next equation. This process is repeated 
for all the equations in the model. To complete the model 
definition the user must enter the token END when prompted for 
the next equation. Figure 7 iS a description of the 
transportation model in our mathematical language. This is 


the form that would be entered in LP/SM. 


@SUMi SUM} (Cij * Xij) 


@SUM} (Xij) <= Si 


@SUMi (Xij) 


Xij >= 0 





Figure 7: Mathematical Language Description 
of the Transportation Problem 
After the END token is entered, the user will be 
allowed to enter meaningful mnemonic names for the model 
elements. The user must identify which element is the 


decision variable. This allows us to identify which of the 
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attribute elements are variable attributes. Figure 8 is a 
chart showing the mnemonic names describing the transportation 
model. After the last mnemonic name is entered the model 
description is completed, written to the ORACLE tables and 


the main menu is redisplayed. 


GENUS NAME GENUS TYPE MNEMONIC NAME 


M_ TRANS model M_ TRANS 
EQNO f TOTAL 
EQN1 ie 1: SUP 

Le T: DEM 

1 NON_NEG 


ce LINK 

pe PLANT 
pe CUST 

a COST 

va FLOW 

a SUP 

a DEM 





Figure 8: Mnemonic Description of 
the Transportation Problem 


2. Storage of the Models in the Model Base 
The structured model is represented in two ORACLE 
tables: RELSHIP and ENTITY. This structure was developed by 
Dolk [{Ref. 6:p. 710} to represent a structured model as part 
of an information resource dictionary system (IRDS). This 
representation offers a number of advantages [Ref 6: p.718]: 
1. Model integrity consistent with structured modeling 


principles can be checked automatically with a single 
DBMS query command. 


29 


2. A wide variety of queries is available for both pre- 
and post-solution model analysis using DBMS query 
commands. 


3. Modeling and data resources are consolidate ina single, 
shared environment. 


4. The IRDS can be activated to interface with external 
processes such as optimization algorithms to support 
model manipulation and eventually serve as_ the 
foundation for a fully functional model management 
system. 

Figure 9 lists the SQL commands that create the tables 
and views representing a structured model in the model base. 
The CALLS view represents the model's generic structure. The 
CONTAINZ view represents the model's modular structure. An 
additional view is created for each of the element types to 
support queries concerning the model structure. 

In the ENTITY table ename is the mnemonic name of the 
model element, etype is the element type and must correspond 
to one of the six structured modeling element types (pe, ce, 
Agee: sey, cease dname is the descriptive name for the genus. 
The date added, last_mod and nmods fields are used for control 
purposes to record the date the model element was added or 
modified and the number of modifications that have been made 
to the model element. The idx, idx stmt, grange, and grule 
fields are used to store the elements index, index statement, 
generic range statement, and generic rule. The comments field 
corresponds to the structured modeling natural language 


interpretation. 
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create table entity 

(ename char(20) NOT NULL, 
etype char(12) NOT NULL, 
dname Char(30), 

date_ added dace, 

last_mod date, 

nmods number(5), 

idx Sharda y 

idx stmt char(100), 

grange char(20), 

grule ehart L0G), 

comments Chata (200) jay 


create table relship 

(rtype char(10) NOT 
elname char(20) NOT 
eltype char(12) NOT 
e2name char(20) NOT 
e2type char(12) NOT 
rel pos number (2) ) ; 


create view calls as 

select elname,eltype,e2name,e2type 
from relship 

where rtype = 'CALLS'; 


create view containz as 

select elname,eltype,e2name,e2type,rel pos 
from relship 

where rtype = 'CONTAINS'; 





Figure 9: SQL commands for Model representation 
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In the RELSHIP table the rtype is "CALLS" for rows 
representing calls in the generic structure or "CONTAINS" for 
rows representing module containment. elname and eitype 
contain the name and type of the calling element in the 
generic structure or the module name in the modular structure. 
e2name and e2type contain the name and type of the called 
element in the generic structure or the name and type of the 
element that is contained within the module. rel_pos is an 
number representing the order of the element in the modular 
outline. 

Figure 10 shows the tables that are created for the 
transportation model. The prototype creates a simple modular 
outline. The module name is preceded by "M_" rather than the 
ampersand suggested by Geoffrion because the ampersand is a 
reserved symbol with special meaning in ORACLE. 

3. Display of the Model Schema 

When the "Display Model Schema" option is selected on 
the main menu, LP/SM reads the ENTITY table from the model 
base. This is accomplished by the use of the SQL command in 
Figure 11. This command ensures the schema is displayed in 
monotone order. 

Figure 12 is an example of the schema created for the 
transportation model. This is our initial approximation of 


the SML-based schema. It does not contain the generic 
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Generic Structure 
CALLS (elname, eltype,e2name, e2type) 
LCoOst ,a ,LINK_ ,ce 
(LINK ,ce, PLANT1,pe 
(LINK ,ce, CUST }.7pe 
eT) .<SeecOST. ,a 
(FLOW ,va, LINK ,ce 
(ROTAL ;~fe, LINK ~,ce 


(T:SUP ,t ,FLOW ,va 
(SUP ,a ,PLANTi1,pe 
Ci Supe t SUP ,a 
(T:DEM ,t ,FLOW ,va 
(DEM pao, CUSTy a 
(T:DEM ,t ,DEM Ja 
(NON _NEG,t ,FLOW ,va 


Modular Structure 

CONTAINZ (elname,eltype,e2name,e2type,rel pos) 
(M TRANS, model,COST a oD 
(M_TRANS,model, FLOW ,va, 9) 
(M TRANS,model,TOTAL ,f ,11) 
(M_TRANS,model,NON NEG,t ,14) 
(M_TRANS,model,PLANTi ,pe, 1) 


(M_TRANS,model,SUP ra pee) 
(M_TRANS,model,CUSTj ,pe, 3) 
(M_TRANS , model, DEM ,a , 4) 


(M_TRANS ,model, LINK AC eg) 
(M TRANS,model,T:SUP ,t ,12) 
(M_ TRANS,model,T:DEM ,t ,13) 


Figure 10: ORACLE tables created to represent 
the transportation problem 
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ename,etype,dname,idx,idx_stmt, 
grange,grule,comments 


ENTITY , CONTAINZ 
ENTITY.ename = CONTAINZ.e2name 
by nellpes:, 





Figure 11: SQL command to read ENTITY table 
from the model base 
range, index set statement, or natural language interpretation 
portions of the genus paragraphs. These portions can be added 
by using the edit feature on the main menu. 
4. Display of the Genus Graph 

The algorithm for creating the graph was adapted from 
the work done by Wyant [Ref. 16]. Figure 13 is the genus 
graph created by our prototype for the transportation problem. 

When the "Display Model Graph" option is selected on 
the main menu, LP/SM reads the CALLS view from the model base. 
Figure 14 is the SQL command that reads the CALLS view from 
the model base. Each CALLS row represents a directed arc in 
the genus graph. We order the rows in the CALLS view to group 
all the calls to a particular node. This provides a more 
orderly presentation of the arcs when we draw the graph on the 
screen. 

The genus graph is represented internally by creating 


a linked list containing the positions of each node 
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PLANTi /pe/ 

SUPPLY (PLANTi) /a/ 

CUST) /pe/ 

DEMAND (CUST3) /a/ 

LINK (CUST}),PLANTi) /ce/ 

COST (LINK) /a/ 

FLOW (LINK) /va/ 

TOTAL (COST,FLOW) /f/ ;@SUMiSUMj (COSTij*FLOWij) 
T:SUP (FLOW,SUPPLY) /t/ ;@SUM}(FLOWij) <= SUPi 


T:DEM (DEMAND,FLOW) /t/ ;@SUMi(FLOWij) = DEM} 


NON NEG (FLOW) /t/ ; FLOWij >= 0 





Figure 12: SML-based schema created 
for the transportation problem 
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TOMA ef fos NON-NEG /t/ TeMeM it / T:SUP /t/ 


EO0ST Jay FLOW /va/ 


LINK /ce/ SUPPLY —/ay 


CUST 3 /pe/ PLANTi /pe/ 


Figure 13: Genus graph generated for 
the transportation problem 
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Select elname, eltype, e2name,e2type 


from CALLS 
order by e2name,elname 





Figure 14: SQL command to read CALLS view 
from the model base 
in the graph. Each node in the linked list is a record 
containing the name and type of the node and the x and y 
screen coordinates of the center of the node. 

The relationships defined by the CALLS view are used 
to draw the directed arcs between the nodes. The graph is 
centered on the screen. The x and y coordinates are computed 
by determining the number of levels on the graph and the 
number of nodes on each level. 

Since the primitive entities represent root nodes in 
the genus structure, we add all the primitive entities to the 
position linked list on the first level of the graph. The 
next step is to search the CALLS view for all elements that 
call the primitive entities. These elements are added to the 
position linked list on level two. We then add the elements 
that call the elements on level two to the linked list on 
level three. This process continues until all genus graph 


nodes are represented in the position linked list. 
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It is possible that a genus will call genera that 
exist on two different levels of the graph. If this occurs 
we add a spaceholder position on the lower level to allow us 
to draw the directed arcs that span levels without drawing 
arcs that interfere with other nodes. For example in Figure 
13 the arc from DEMAND to T:DEM uses a spaceholder on level 
two. 

The most difficult issue in constructing the graph is 
how to place the nodes (elements) and directed arcs (calls). 
We have attempted to address the problem in our prototype. 
Wyant's "spaceholder" reduces the possibility that an arc will 
be drawn through a node and our ordering of the elements in 
the CALLS view improves the presentation of the arcs in the 
lower levels of the graph. While our prototype will always 
produce a graph that correctly represents the generic 
structure of the model, the graph's aesthetic quality is often 
lacking. This limitation will be discussed in Section VI. 

5. Editing of the Model Schema 

The "Edit Model Schema" option on the main menu allows 
the user to enter the components of the model schema that were 
not automatically generated by our prototype. This 
information is added to the ENTITY table of the model base and 


will be displayed in the model schema. Figure 15 shows the 
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model schema for the transportation problem after the index 
set statements, generic ranges and natural language 
interpretations have been added. 
D. CONSTRUCTION OF THE PROTOTYPE 
The prototype is constructed in the following order: 
1. Run LEX using the input listed in Appendix B. 
2. Run YACC using the input listed in Appendix B. 


3. Precompile all source modules containing ORACLE SQL 
commands with the PCC ORACLE precompiler. 


4. Compile all source modules and link them into the 
executable file XMMS.EXE. 


Appendix C contains the makefile used to compile the 
prototype and the C source code for all functions except those 
that were generated by YACC and LEX. The YACC and LEX 
functions were omitted because they can easily be 
reconstructed by using the input described in Appendix B. 

E. RUNNING THE PROTOTYPE 

The prototype assumes that ORACLE is loaded into extended 
memory prior to running the prototype. ORACLE is loaded 
Simply by typing ORACLE at the command prompt. 

Once ORACLE is loaded the prototype is run by typing XMMS 
at the command prompt. This will clear the previous model (if 
one exists) from the ORACLE database and display the main 


menu. 
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PLANTi /pe/ There is a list of PLANTS. 


SUPPLY (PLANTi) /a/ {PLANT} :R+ Every Plant has a 
SUPPLY capacity measured in tons. 


CUST}] /pe/ There is a list of CUSTOMERS. 


DEMAND (CUST}) /a/ {CUST} :R+ Every customer has a 
nonnegative demand measured in tons. 


LINK (CUST}),PLANTi) /ce/ Select {PLANT}X{CUST} 
where i covers {PLANT},} covers {CUST} There are 
some transportation LINKS from PLANT to CUSTOMER. 


COST (LINK) /a/ {LINK} :R+ Every LINK has a 
transportation cost rate. 


FLOW (LINK) /va/ {LINK} :R+ There can be a non- 
negative transportation FLOW (in tons) over each 
LINK. 


TOTAL (COST,FLOW) /f/ ;@SUMiSUMj (COSTij*FLOWij) 
There is a TOTAL COST associated with all the FLOWS. 


T:SUP (FLOW,SUPPLY) /t/ {PLANT} ;@SUMj}(FLOWij) <= 
SUPi Is the total FLOW leaving a PLANT less than 
or equal to the SUPPLY CAPACITY. 


T:DEM (DEMAND,FLOW) /t/ {CUST} ;@SUMi(FLOWij) = 
DEM} Is the total FLOW arriving at the customer 
exactly equal to the its DEMAND. 


NON NEG (FLOW) /t/ ;FLOWij >= 0 This is the non- 
negativity constraint. The FLOW must be greater than 
or equal to zero. 





Figure 15: SML-based schema for the transportation 
problem after editing 
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F. SUMMARY 

We have presented the implementation details for LP/SM and 
described the conversion of the transportation problen. 
Because YACC will allow input from a very general class of 
grammars, we could extend these procedures to convert an LP 
model described in any mathematical language that can be 
represented in BNF. 

The prototype described here, while sufficient to 
demonstrate the conversion propositions described by Dolk 
(Ref. 12], is not robust enough to serve as part of an MMS. 
The next section will discuss the limitations of our 


prototype and possibilities for future enhancements. 
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VI. CONCLUSIONS 


Our prototype clearly demonstrates it is possible to 
construct a structured modeling representation of simple LP 
models with a minimum amount of input from the user, however, 
this version is limited and a number of enhancements are 
required. Here we discuss the limitations of the current 
version of the prototype and the enhancements that would be 
required to produce a working MMS for LP models. 

A. LIMITATIONS OF THE PROTOTYPE 

The primary limitation of our prototype parser is the 
parser's inability to "understand" the semantic rules of the 
mathematical language. The parser must be extended to include 
more than syntax checking. These semantic rules are necessary 
to ensure the validity of the model description in the model 
base. 

The graphics presentation of the genus graph in our 
prototype is somewhat limited. In part, this is because of 
the difficulty in providing a general algorithm that will 
arrange the nodes and arcs in a manner that is consistently 
aesthetically pleasing. We suggest development of a system 
that allows the user to manipulate the nodes and arcs of the 
graph after it is drawn to improve the presentation of the 


graph. This would require saving genus position information 
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in the model base but would improve the capability of the 
system to communicate the structure of the model. 

The quality of the graphics output could be improved 
through the use of the full VGA capabilities of the IBM PS/2. 
This would increase the screen resolution to 640x480, thus 
eliminating the jagged appearance of diagonal arcs. Bit-mapped 
scaleable characters would improve the quality of the textual 
information on the graph by allowing more precise placement. 
The presentation of the graph may be improved by assigning a 
distinct color and icon to each genus type as suggested by 
meame jRef. 16}. 

The present display of the SML-based schema is limited to 
a Single screen. A Scrollable text window would improve the 
presentation of the schema and allow for the display of larger 
models. 

Although this prototype was designed with a multiple model, 
model base in mind, the present version of the prototype 
supports only a single model, model base. This could easily 
be extended to support multiple models as described by Dolk 
pee eweo. pp. 714). 

B. AREAS FOR FURTHER RESEARCH 

Representing structured models as data in a RDBMS is a 
promising approach for implementing the new generation of 
modeling systems described by Geoffrion. However, a number of 
research questions remain before a viable MMS can be 


constructed: 
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1. How can the model's description be integrated with the 
corresponding elemental detail ? 


2. How can the model and its associated elemental detail be 
integrated with LP solvers ? 


3. How can facilities be developed to allow ad hoc queries 
of the model base ? 


Much remains to be done, but the potential benefits are 
worthy of the effort. A structured modeling based integrated 
modeling environment would provide decision makers with a 
better understanding of the models upon which their decisions 
are based. This would improve the acceptance of model-based 
systems by managers and enhance the quality of organizational 


decision making. 
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APPENDIX A 


DESCRIPTION OF THE MATHEMATICAL LANGUAGE 


A. INTRODUCTION 

This grammar is a subset of the Structured Modeling Language 
(SML) grammar proposed by Geoffrion [Ref. 10]. This language uses 
the Module Test Expression grammar and the Function Test Expression 
grammar to implement simple linear programming models. The 
following are the major features of SML Generic Rule grammar not 


supported by this language subset: 


1. User defined functions 

2. Standard functions FLOOR, MAX or MIN 
3. Symbolic parameters 

4. ORD function 

5. Logical functions: @AND, @OR, @NOT 


6. @IF function 


B. DESCRIPTION OF THE LANGUAGE SYNTAX 


The grammar for our language subset is presented in Extended 


BNF form. The following conventions are used: 


1. non-terminal symbols are enclosed in < > 


2. optional items are enclosed in [ ] 
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3. items occurring zero or more times are enclosed in { } 
4. alternative rules are separated by | 


5. terminal symbols are enclosed in won 


C. ALPHABET OF THE LANGUAGE 





<divide_ sign> soa omyn 
<exp_ sign> ne) aT 

<minus_sign> To 

<plus_ sign> osm GH 

<mult_sign> ee 

<a 2s= 0 oe" 

<COlon- osm MeN 

<digit> $2 NO Mig eee erenes eo 
<dollar> sr oNgH 

<eq> eee att 

<gt> s:= ODN 

“Jee 2:3= ">a" 

<lbracket> soe 

<literal> ::= "#PRURM | "HPALSE" 
<lletter> eG es i | lal 
<uletter> s:= MAN | NB. eee 
<lpanen= ssa yt 

<i oes en 
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—e> 23= "eat 


<ne> coms We>tt 
<period> 22> Ot 
=pedigit> ee OM Te Ro 
<rbracket> p= mye 
<rparen> soa myn 
<rprime> oom in 
<underscore> i 
=—2eLrO> c2= HOt 


D. CHARACTERS USED IN IDENTIFIERS 


<identifier char> fs= <Cegrte 
<uletter> 
<underscore> 


E. ARITHMETIC CONSTANTS 


<sign> ::= <plus_ sign> 
| <minus_sign> 


<p_integer> = “Pudi Gist digit } 
<nn_integer> Pia -peergitei{digit) | <zero> 
<nz_integer> ::= <p _integer> | <sign><p_integer> 
<nn_real> :3= <digit>({digit}<period> 

2a0g1t>{ digit } 


F. NAMES OF MODEL ELEMENTS 


<end> :3= "END" 

<gname> ::= <uletter>{identifier char} 
| <dollar>{identifier_char} 

<index> ::= <lletter> 
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—Le uname 


<i _fc_name> 


= WARS" | weypi | woN! | "TOG" | "SORT!" 


s:= "SUM" 


G. CONTEXT FREE GRAMMAR FOR THE LANGUAGE 


<sp_index> 


<dp_index> 


<pp_index> 


<index range4> 


<index_range3> 


<index_range2> 


<index_ rangel> 


::= <index><rprime> 
::= <index><rprime><rprime> 


$:= <index> 
<sp_index> 
<dp_index> 


::= <lbracket><pp_ index><plus_ sign> 
<p_integer><colon> 
<nz_integer><rbracket> 


| <lbracket><pp_index><plus_sign> 
<p_integer><colon><pp_ index> 
<plus sign><p integer><rbracket> 


::= <lbracket><pp_ index><minus_sign> 
<p_integer><colon> 
<nz_integer><rbracket> 


| <lbracket><pp_ index><minus_sign> 
<p_integer><colon> 
<pp_index><rbracket> 


| <lbracket><pp_index><minus_sign> 
<p_integer><colon><pp_ index> 
<sign><p_integer><rbracket> 


::= <lbracket><pp_ index><colon> 
<nz_integer><rbracket> 
| <lbracket><pp_index><colon> 
<pp_index><plus sign><p_integer> 
<rbracket> 
2::= <lbracket><nz_ integer><colon> 


<nz_integer><rbracket> 
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<index_ range> 


<index_unit> 


<iterated_fun_unit> 


<index_ sup function> 


<offset_index> 


<replaced_index> 


<gr_index> 


<gr_indicies> 


|<lbracket><nz_integer><colon> 
<pp_index><rbracket> 


|<lbracket><nz_integer> 
<colon><pp_index> 
<sign><p_integer><rbracket> 


| 
| 


EMPTY 


<index_rangel> 


<index_range2> 


<index range3> 


<index_range4> 


<pp_index><index_range> 


<i_ fc _name><index_unit> 


<iterated fun_unit><i_fc_name> 
<index_unit> 


<at> <iterated_fun_unit><lparen> 
<expression><rparen> 


<lbracket><pp_ index><sign> 
<p _integer><rbracket> 


<lbracket><p_ integer><rbracket> 


<lbracket><sign><p_ integer> 
<rbracket> 


<pp_index> 


<replaced_index> 


<offset_index> 


<gr_index> 


| <gr_indicies><gr_index> 
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<simple var> 


<exprpack> 


Sisjolitilic, aale ae bh overcalroy ale: 


<variable> 


<constant> 


<factor=> 


<power> 


<term> 


expression 


<function expression> 


::= <gname> 


| <gname><gr_indicies> 


::= <lparen><expression><rparen> 


il 


<at><fc_name><exprpack> 


>:= <Simple var> 
| <buii Pei hineiLon= 


| <index_sup_function> 


>:= <nn_integer> 


<nn_real> 


°2*= <consSsecant— 
| <variable> 


| <lparen><expression><rparen> 


<:= <factor> 


| <factor><exp sign><power> 


::= <power> 
| <term><mult_sign><power> 


| <term><divide_sign><power> 


<term> 


il 


| <minus_sign><term> 


| <expression><sign><term> 


2:3:= <expression> 
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<relational_ operator> = alte = 


| <le> 
| <eq> 
| <gt> 
| <ge> 


| <ne> 


<literal> 


<test_expression> 


| <expression><relational_operator> 
<expression> 


| <expression><relational_operator> 
<expression><relational_ operator> 


<expression> 
<mod_ test expression> ::= <test _expression> 
<f t _expression> ::= <test_expression> 
<function_ expression> 
<end> 


<mod_ function expression> <f t_expression> 


ak 


APPENDIX B 


INPUT TO LEX AND YACC 


A. INPUT TO LEX 


%{ 
x 


These regular expression define all the symbols 
that are allowed in the mathematical language 


a 


/* include all the manifest constants 
created by YACC for tokens */ 


#include "ytab.h" 
/* include all symbol table data definitions */ 
#include "symbol.h" 


/* define return value */ 
#define token(x) x 


ove 


} 


° 
6 


oo 


(\n] return 0; 


[ \t] 


NEND" { 

install (yytext,END,eqno) ; 
return token(END) ; 

} 


"SumM" { 

install (yytext,SUM,eqno) ; 
return token(SUM) ; 

} 
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7 RUE" { 

install (yytext, LITERAL, eqno) ; 
return token(LITERAL) ; 

} 


"ZFALSE" { 
install (yytext, LITERAL, eqno) ; 
return token(LITERAL) ; 
} 

MABS TD { 
install (yytext,ABS,eqno) ; 
return token(ABS); 
} 

"EX pt { 
install (yytext,EXP,eqno); 
return token(EXP); 
} 

TD | LOG" { 
install (yytext, LOG,eqno) ; 
return token(LOG) ; 
} 

wSORT " { 
install (yytext,SQRT,eqno) ; 
return token(SQRT); 
} 

1 LN? 


{ 
install (yytext,LN,eqno) ; 
return token(LN); 


} 


[sae 2) [A-z_]* { 
install (yytext, IDENTIFIER, eqno) ; 
return token (IDENTIFIER) ; 


} 


[a-z]}* { 
install (yytext, INDEX,eqno) ; 
return token (INDEX) ; 


} 


es Oe? | * { 
install (yytext,NZ INTEGER, eqno) ; 
return token(NZ INTEGER) ; 


} 


wo 


(0-9) (ee t* 


[O-9}*"."[0-9)% 


wat 


Tea 


a ty 


Wit 


LT eee | 


ae 


{ 
install (yytext,P INTEGER, eqno) ; 


return token(P_ INTEGER) ; 
} 


{ 
install (yytext, REAL, eqno) ; 
return token(REAL) ; 
} 


{ 

install (yytext, COLON, eqno) ; 
return token(COLON) ; 

} 


{ 

install (yytext,AT,eqno) ; 
return token(AT); 

} 


{ 
install (yytext,TIMES,eqno) ; 
return token(TIMES) ; 


} 


{ 
install (yytext, DIVIDE, eqno) ; 
return token(DIVIDE) ; 


} 


{ 

install (yytext,MINUS,eqno) ; 
return token(MINUS) ; 

} 


{ 

install (yytext, PLUS,eqno) ; 
return token(PLUS) ; 

} 


{ 

install (yytext,POW,eqno) ; 
return token(POW) ; 

} 


{ 
install (yytext, LPAREN,eqno) ; 
return token(LPAREN) ; 


} 
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um) ft { 
install (yytext,RPAREN,eqno) ; 
return token(RPAREN) ; 


} 


a { 
install (yytext, LBRACKET, eqno) ; 
return token(LBRACKET) ; 


} 


“a { 
install (yytext, RBRACKET,eqno) ; 
return token(RBRACKET) ; 


} 


te eo | { 

install (yytext,RPRIME,eqno) ; 
return token(RPRIME) ; 

} 


{ 

install (yytext,EQ,eqno) ; 
return token(EQ); 

} 


West { 
install(yytext,NE,eqno) ; 
return token(NE) ; 

} 

Well { 
install (yytext,LT,eqno) ; 
return token(LT) ; 

} 

Wot { 
install (yytext,GT,eqno) ; 
return token(GT) ; 

} 

Neo! { 
install (yytext,LE,eqno) ; 
return token(LE) ; 

} 

" Sal! 


{ 
install (yytext,GE,eqno) ; 
return token(GE) ; 


} 
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* Symbol table routines 

functions that maintain the global symbol table used 
by parser. The symbol table is defined as a singlely 
linked list 


#17, 


° 
6 


extern Symbol *head,*tail; 


J BRRKEKERERERERRERKERERK / 
Symbol * install(s,t,e) 


char * s; /* name of symbol */ 


pris er /* Yacc code for symbol type */ 
aioe e; /* equation symbol was found in */ 
Symbol * sp; /* temp pointer to new symbol */ 


/* dynamically allocate space for next symbol table 
entry and the space for the symbol name */ 


sp = (Symbol *) malloc(sizeof (Symbol) ); 


sp->s_ name = malloc(strlen(s)+1); 


/* assign values to the symbol table entry */ 


strcpy (sp->s_name,Ss) ; 
sp->s_type = t; 
sp->equation = e; 
sp->next = NULL; 


/* add new symbol to end of linked list */ 


if ( head == NULL ) { /* first symbol on list */ 
head = tail = sp; 
return; 


} 


else { /* add to end of list */ 
tail->next = sp; 
tail = sp; 
return; 
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B. 


INPUT TO YACC 


/* Mathematical Language syntax analysis */ 


/* Terminal Symbols */ 


token 
token 
token 
token 
token 
%token 
token 
%token 
token 
token 
token 
%token 
token 
token 
token 
token 
$token 
token 
token 
token 
$token 
token 
token 
token 
token 
token 
token 
token 
token 
token 
token 


ABS 
AT 

COLON 
DIVIDE 

EQ 

EXP 

END 

GT 

GE 
IDENTIFIER 
INDEX 
LBRACKET 
LITERAL 
LT 

LE 

LPAREN 

LN 

LOG 

MINUS 

NE 

NZ INTEGER 
POW 

P INTEGER 
PLUS 

REAL 
RPAREN 
RBRACKET 
RPRIME 
SUM 

SQRT 
TIMES 


/* define the precedence of the operators */ 


4left 
left 
S4left 
4 Proght 


PLUS MINUS 
TIMES DIVIDE 
UNARYMINUS 
POW 
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oe 
oe? 


equation ; 





test expression : 


expression 


rel op : 


function expression 


expression 


term 


power 


factor 


constant 


variable 


built ios sune een 


builtin 


test expression 
function_expression 


END 


LITERAL 
expression rel op expression 
expression rel _op expression rel_op 


LE 


GE 
EQ 
NE 
pt 











expression 


term 

expression PLUS term 
expression MINUS term 

MINUS term prec UNARYMINUS 


power 
term TIMES power 
term DIVIDE power 


fFacreor 
factor POW power 


constant 
variable 
exprpack 


integer 
REAL 


Simple variable 
built in funesien 
index sup function 


AT builtin exprpack 


ABS 
1a) Ce 
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exprpack 


Simple variable 


gr_indicies 


gr_index 


pp_ index 


replaced index 


offset index 


index_sup function 


iterated fun_unit 


index _unit 


index range 


index rangel 


index range2 : 


SQRT 
LOG 
LN 


LPAREN expression RPAREN 


; IDENTIFIER 
| IDENTIFIER gr_indicies 


> gr_index 
| gr_indicies gr_index 


> pp index 
replaced_index 
offset index 


> INDEX 
INDEX RPRIME 
INDEX RPRIME RPRIME 


LBRACKET P_INTEGER RBRACKET 
LBRACKET PLUS P_ INTEGER RBRACKET 
LBRACKET MINUS P_INTEGER RBRACKET 


LBRACKET pp index PLUS P_INTEGER 
RBRACKET 

LBRACKET pp index MINUS P_INTEGER 
RBRACKET 


AT iterated _fun_unit exprpack 


: SUM index_unit 
| iterated _fun_unit SUM index_unit 


pp index index range 


/*®* no range */ 
index _rangel 
index _range2 
index _range3 
index range4 


LBRACKET NZ INTEGER COLON NZ_ INTEGER 
RBRACKET 


LBRACKET NZ INTEGER COLON pp_ index 
RBRACKET 

LBRACKET NZ INTEGER COLON pp_ index sign 
integer RBRACKET 


LBRACKET pp index COLON NZ_ INTEGER 
RBRACKET 


5g 


index range3 


index range4 


LBRACKET pp index COLON pp index PLUS 
integer RBRACKET 


LBRACKET pp index MINUS P_INTEGER COLON 
NZ INTEGER RBRACKET 

LBRACKET pp index MINUS P_INTEGER COLON 
pp index RBRACKET 

LBRACKET pp index MINUS P_INTEGER COLON 
pp index sign integer RBRACKET 


LBRACKET pp index PLUS integer COLON 
NZ INTEGER RBRACKET 

LBRACKET pp index PLUS integer COLON 
pp index PLUS integer RBRACKET 


P INTEGER 
NZ INTEGER 


PLUS 
MINUS 
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APPENDIX C 


MAKEFILE AND SOURCE LISTING 


HHH RATT HERR HTH HTH THRE HHH HH HH HHH HEHE HH 


Makefile for XMMS prototype 


A prototype parser that converts a LP 

mathematical language into structured modeling 
formats. The models are stored in a ORACLE 
database. Models can be displayed as textual schema 
Or aS generic graph. 


He HE HE SHE SHE HE SHE FE 


Peevtarten By: David S. Hill 


# Uses large memory model because of 
# ORACLE PRO*C interface 


MODEL=L 
# Object Files 


OBJS =parser.obj menu.obj models.obj enter.obj oracle r.obj 
oracle w.obj printem.objA 


# Complier Flags 
CFLAGS =/A$(MODEL) /c 
@ee cl) S (CFLAGS) 


# General Rule - 
# make .obj from .c files 


Ae Oy ©) 5 Be 
$(CL) $*.c 


# Compile all the files 
# Parser program created by input to YACC and LEX 
parser.obj: parser.c ytab.h 


# Menu function and main program 
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menu.obj: menu.c 
# functions display models 


models.obj: models.c 
# function to enter model 


enter.obj: enter.c 
# function to read and write from ORACLE 


Oracle r.c: “Orac Heme are 
pec iname=oracle r.pc host=c 


Oracle r.obj: (Cnracle lene 


oracle w.c: oracle wW.pc 
pec iname=oracle w.pc host=c 


oracle w.obj: oracle w.c 
/* link the executable fle */ 


xmms.exe: $(OBJS) 
LINK $(OBJS) ,xmms.exe,,sgqlmsc /se:512 /stack:10000 /map; 
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J BRK KKK KKK RRR RRR KKK KKK KKK KKK KEKE RE RRR KERR KEKE KK KKK 
DATE: 10 Jan 89 - dash 


PILE: defs.h 


CONTENTS: Constant definitions for Keys, Colors and other 


common constants 
KHKKKKKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKKKKKKKEKKKKKK KKK KEE KK / 


/* Constants */ 


#define DEFAULT -1 
#define TRUE Ak 
#define FALSE 0 


/* Key Scan codes */ 


#define UP V2 
#define DOWN 80 
#adefine LEFT 15 
#define RIGHT ay 
#define ENTER 28 


/* text color definations */ 


#define BLACK 
#define BLUE 
#define CYAN 
#define RED 
#define WHITE 
#define LBLUE 
#define LRED 


hm Ona & We © 


2 
#define BRWHITE 15 


/* video interrupt defs */ 


#define CURSIZE 1 /* set cursor size service 
number */ 

#define VIDEO 0x10 /* interrupt number */ 
#define OFFBIT 0x20 Vet =eSeO lee cums Cursor off 


sets bit 5 of register ch on */ 


Sy) 


[RRR KEEKKEKEKERKEEERKEKKEKEKEKEKEKKKEKEKKEEEKEKEEKKKEEKKEEKKEKKES 


DATE: 5 Dec 88 - dsh 
FILE: ytab.h 
CONTENTS: Constant definitions passed from scanner 


to parser. Used in manipulating symbol table 
KREKKEEKEKEKEKKKEKKEKEKKEKEKE KKK KE EK EKER KEE KEKEKKEKEKKEKKKKKEKKKEK / 


He HEC HE SHE SHE SHE SHE SH HE HE HE SHE SHE SH SHE SHE SHE SHE SHE HE SH SHE SHE He SHE He HE Hs Hs HE HE HE 


define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 
define 


ABS aor 

AT 258 

COLON 252 
DIVIDE 260 
EOezG 

BeAr 2 GZ 

END 263 

GT 264 

GEaZzos 
IDENTIFIER 266 
INDEX 267 
LBRACKET 268 
LITERAL 269 
Eihe2z7 0 

Eee? & 

LPAREN 272 
ENS275 

LOG 274 

MINUS 275 

NE 276 

NZ INTEGER 277 
POW 278 

P INTEGER 279 
PLUS 280 
REAL 281 
RPAREN 282 
RBRACKET 283 
RPRIME 284 
SUM 285 

SORTS 2Z 516 
TIMES 287 
UNARYMINUS 288 
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[RRR KKRKKKK KKK KKEKKKKKKKKKKKE KKK KKK KEKKE EK KEKEKKKKKEKKKKKKKKKKK 
DATE: 10 Jan 89 - dash 


FILE: symbol.h 


CONTENTS : Type definitions and declarations for all 


global linked list elements 
KKKKKKKKK KKK KKK KKK KK KKK KKK KK KKK KKK KKEKKEKKEKKEKKKK KKK KKK / 


typedef struct symbol table entry Symbol ; 

struct symbol table entry { 
char S name[20]}; /* name of symbol */ 
int s type; /* YACC code for symbol type */ 
int equation; /* equation # symbol was in */ 


seawet: Symbol table entry * nexty 
/* pointer to next symbol in list */ 


); 


typedef struct entity table entry Entley; 


struct entity table entry ({ 


char ename[20]; /* name of entity */ 

char etype[8]; /* type of entity */ 

char dname[30]; /* descriptive name of entity */ 
char 1dax[4]; /* index set */ 

char idx _stmt[50]; /* index statement */ 

char grange[20]; /* generic range stmt */ 

char grule[8s0]; /* generic rule */ 

char comments[ 80]; /* informal interpertation */ 
struct entity table entry *next; /* pointer to next 


table entry */ 
); 


typedef struct relship table entry Relship; 


struct relship table entry { 


Cla rtype[12]; /* type of relationship 
CALLS */ 
char elname[20]; /* calling entity name */ 
char eltype([8]; /* calling entity type */ 
char e2name[20]; /* called entity name */ 
char e2type[8s]; /* called entity type */ 
struct relship table entry *next; /* pointer to next 


table entry */ 
); 
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typedef struct module table entry 


struct module table entry 


char 


char 
char 
char 
char 
gee 


rtype[12]; 


elname[20]; 
eltype[8]; 
e2name[20]; 
e2type[8]; 
rel pos; 


{ 


struct module table entry *next; 
table entry */ 


ar 


Module; 


type of relationship 
CONTAINS */ 

calling entity name */ 

calling entity type */ 

called entity name */ 

called entity type */ 

Position in heirarchy */ 
/* pointer to next 


typedef struct entity position Position; 


struct entity position { 


char 
char 
short 


}> 


ename[20]; 
etype[8]; 
xpos, 
Ypos, 
level; 


/* name of entity */ 

/* type of entity */ 

/* X pixel coordinate */ 

/* y pixel coordinate */ 

/* genus graph level - all 
pe's start 

on level 1 and those 

elements that call 

them are on the next level */ 
struct entity position * next; 
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/* 


pointer to next item 


in linked list */ 


[RRR KEKE KRKEKEKKEKEKEKKKEEEKKEKEKKKKKEKEKKKKKKKEKEKKKKEEE 


DATE: 22 Jan 89 - dsh 
PLLEs menu.c 
CONTENTS: Main function and the functions to control 


the menu selection. The menu selection 
functions were adapted from the basic graphics 


samples provided with the Microsoft C compiler. 
KRRKEKKEKEKKEKKEEKKEKE KEKE REE KERR ERE REE KEE KEKE / 


#include <stdio.h> /* standard io library defs */ 
#include <dos.h> /* defines registers 
for interrupts */ 
#include "defs.h" /* constant definations */ 
#include "“symbol.h" /* type definitions */ 
#include <graph.h> /* graphics defs */ 
#include <string.h> /* string function defs */ 
#include <bios.h> /* defs for BIOS calls to keyboard */ 


/* Functions - prototypes */ 


iaemmenu (int, ant, char* [)); 
mete pox(int, int, int, at jay 
void itemize(int, int, char*, int); 
Siieme, Initialize(short) ; 
tieaeyylex (int); 

void yyerror(void) ; 

extern void enter model (void) ; 
int yyparse(int) ; 

void cursor_on(void) ; 
Voldmeunmsor off(void) ; 

void display message(char *); 


/* SGieaucture for configuration * / 
SCuuetevyideocconfig vc; 
/* Array and enum for main menu */ 


char *mnuMain{] = { 
"Enter Model", 
"Edit Model Schema", 
"Display Model Graph", 
"Display Model Schema", 
meat : 
NULL }; 
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enum { 
NEW, EDIT, GRAPH, SCHEMA, QUIT }; 


/* Structure for menu attributes 
(variables for color and monochrome) */ 


struct mnuAtr { 

int fgNormal, fgSelect, fgBorder; 

long bgNormal, bgSelect, bgBorder; 

int centered; 

char nw[{2], ne[2], se{2], sw{2], ns[{2], ew[2]; 
} 
menus = { 

BLACK, BRWHITE, RED, 

CYAN, RED, CYAN, 


TRUE, 

W Nx! ; 1 bd oh r | \xdo" 7 " Nxeo!! ; tt \Nxpot ' \xe4a" 
ta 
struct mnuAtr bwmenus = { 


OX7 0 BeOxE - 0x7 0, 

OX], 0x70, 0x7, 

TREE 
"\xda", IN aye HN xd9ouG BD otdero ll JENS) VU. eee 
d; 


char messl[{] = 
"Prototype Model Management System for Linear 
Programming" } 


s 


char mess2[] = { 
"Move to menu selection with cursor keys, press ENTER to 
select" }; 


char mess3[] = { 
"A Model already exists do you want to delete it ? 


(YN 


ies lmessl = sizeof(mess1), 
lmess2 = sizeof(mess2) ; 
lmess3 = sizeof (mess3) ; 
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[RRR KKKKEKKKKKKKEKKKEKEKKEKEKKEKKEKKEKKEKKEKKEKKKKKKEKKKKKKRKK KK KKK 


MAIN 


Main function for XMMS. 


Makes calls to set up menus, 


and calls for each of the functions in the menu list. 


RHKKKKKKKKKEKKKEKKEKKEKEEKKEKEKKEEKEKEKEKEKEKEKEKEKEEKRKEKKEEKKKKKKKKRKKKKRKKE EK / 


main () 
{ 
int choice, /* menu choice */ 
crow, /* current text position row */ 
ecol ; /* current text position col */ 
int tmode, /* video text mode */ 
vmode ; /* video mode for graphics */ 


long bkcolor; /* initial background color */ 


short xpixels, /* 


max pixels in 


xX in graphics mode */ 


ypixels, /* 

in 
maxcols, /* 
maxrows, /* 
mflag = 0;/* 


max pixels in y 

graphics mode */ 

max text columns in text mode */ 
max text rows in text mode */ 
global flag set when 


model is present */ 


char yorn[4]; /% 


_getvideoconfig(&vc) ; 


buffer for y or n answer */ 


xpixels = vc.numxpixels; 


ypixels= vc.numypixels; 


maxcols= vc.numtextcols; 
maxrows= vc.numtextrows; 


crow = maxrows / 2; 
ccol = maxcols / 2; 
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/* Select best text and graphics 
modes and adjust menus * / 


Switch (vc.adapter) { 


case MDPA : 
case CGA : 
puts("EGA or VGA Graphics required.\n") ; 
exit(0); 
case EGA : 
case _VGA : 
case _MCGA : 
vmode = _ERESCOLOR; 
break; 


switch (vc.mode) { 

case  TEXTBW80O : 
menus = bwmenus; 

case TEXTBW40 : 
_setvideomode (_TEXTBW80) ; 
break; 

case TEXTC40 : 
tmode = “SGEXTC80; 
break; 

case TEXTMONO : 

case _ERESNOCOLOR : 


menus = bwmenus; 
tmode = _TEXTMONO; 
vmode = _ERESNOCOLOR; 
break; 

default : 
tmode = ~ LE Le Sor 


} 
_setvideomode (tmode) ; 
/* delete old models if any exist in ORACLE */ 


delete from _entity(); 
delete from _relship(); 


_settextposition(2,40 - (lmessl i 2) 
_outtext(messl) ; 
_settextposition(22,40 - (lmess2 VD PAS 
_outtext (mess2) ; 
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/* Select and branch to menu choices */ 


mom (;;) { 
choice = menu(crow,ccol,mnuMain) ; 


switch (choice) { 
case NEW : 
if(mflag) { 
_clearscreen (_GCLEARSCREEN) ; 
display message("Single model prototype - 
model exists "); 
break; 
} 
_Clearscreen (_GCLEARSCREEN) ; 
enter model( ); 
mflag = 1; 
break; 
ease EDIT : 
1f(mflag) { 
_Clearscreen (_GCLEARSCREEN) ; 
edit _schema( ); 
} 
else { 
_clearscreen(_GCLEARSCREEN) ; 
display message("Single model prototype - 
enter model first "); 
} 
break; 
case GRAPH : 
if(mflag) { 
initialize(vmode) ; 
display graph( ); 
_bios_keybrd(_KEYBRD_ READ) ; 
} 
else { 
_clearscreen(_GCLEARSCREEN) ; 
display message("Single model prototype - 
enter model first "); 
} 
break; 
case SCHEMA : 
if(mflag) { 
_Clearscreen(_GCLEARSCREEN) ; 
display schema( ); 
_bios_keybrd(_KEYBRD_READ) ; 


else { 
_clearscreen(_GCLEARSCREEN) ; 
display message("Single model prototype - 
enter model first "); 


pi 


break; 
case QUIT : 
_setvideomode (_DEFAULTMODE) ; 


exrt (oO) 


} 


_setvideomode (tmode) ; 


[RR KKKKKKKKKKKKKKRKK KKK KEK KEKREKERKKKKKKEKKKKRKKKKKKKKKK 


MENU 


Function to put menu on screen. 
Returns number of item selected. 
Adapted from Microsoft C graphics samples. 


KHKKKKKKKKKKKKKKKKKKKKK KK KKK KK KKKKKKKKKKKKKKKKKKEKKKEKER / 


int menu(row, col, items) 
lite row, /* starting row and col */ 


eo? 


char *items[]; /* array of menu items */ 


{ 


Bie. 
num, 
max= 2, 
prev, 
curr= 0, 
choice; 
int litem[25]; 
Long *becior; 


CULSOr OD Rijn 
bcolor = _getbkcolor(); 
/* Count items,find longest, 


and put length of each in array */ 
for (num = 0; items[num]); num++) { 


litem[num]) = strlen(items[num}); 

max = (litem[num] > max) ? litem[num] 
} 
maxX += 2; 


if (menus.centered) { 
row -= num / 2; 
col -= max / 2; 


} 


/* Draw menu box */ 


he 


Max; 


_settextcolor(menus.fgBorder) ; 
_setbkcolor(menus.bgBorder) ; 
bem(row++,col++, num, max) ; 


/* Put items in menu */ 
hom (1 = O; j < lem, ce) ae 
if 64 ==seurr) { 


_settextcolor(menus.fgSelect) ; 
_setbkcolor (menus. bgSelect) ; 


} 
else { 


_settextcolor(menus.fgNormal) ; 
_setbkcolor(menus.bgNormal) ; 

} 

itemize (row+i,col,items[i],max - litem[i]); 


} 


/* Get selection */ 


fOr (ah { 

switch ((_bios keybrd(_KEYBRD READ) & Oxff00) >> 8) 

{ 

case UP - 
prev = curr; 
CUsr = (Gurr > 0) 7 4(-——-cure 49num)® :enun-l1; 
break; 

case DOWN : 
prev = curr; 
eMrr = (Curr < num) ? (++@urr = Num) Gas; 
break; 


case ENTER 
m@setbkcolor(bcolor) ; 
Bear (CULT) ; 
default : 
continue; 


settextcolor(menus.fgSelect) ; 
_setbkcolor(menus.bgSelect) ; 
itemize (row+curr,col,items[curr],max - litem[curr]); 


_settextcolor (menus. fgNormal) ; 
_setbkcolor(menus.bgNormal) ; 
itemize (row+prev,col,items[prev],max - litem[prev]); 
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[RRR KKK KKKKKKKK KKK KKK EKER KKKKKKEKKKKKKKKKKEKKEKKKKKKKKKKEKKKE 


BOX 


Draw menu box. 
<row> and <col> are upper left of box. 


<hi> and <wid> are height and width. 
KKEKEKEKKKEKEKEKKEKEEKKEKREKKEKKEKEKEKKKKEKEKEKEKKERKEKKKKEKEKKEKEKEKKEKEKEKKEKEKKKEKKEESE 


i 


void box(row, col, hi, wid) 
int row, Col, hi ayod: 
{ 

Me Tlitee las 

char temp[80]; 


_settextposition(row,col) ; 
temp[0O] = *menus.nw; 
memset (temp+1, *menus.ew,wid) ; 
temp(wid+1] = *menus.ne; 
temp[wid+2] = NULL; 
MOUCGC +e CCCMp) =, 
ror (1 = Bea =—= hae 
~settextpositioen( rowr?, col); 
BOUCTEXT (menus ns), 
r Settexepos 1 Gone ows 1 ecol-tw rd: 
_outtext (menus.ns) ; 


_S@EECXTDOS1E1 On (Towle, cole 
temp[0] = *menus.sw; 
memset (temp+1,*menus.ew,wid); 
temp[wid+1] = *menus.se; 
temp[wid+2] = NULL; 
_outtext (temp) ; 

} 


[RR RRERERE RE RE KEKE KEKE KEKE KK KKK KKK KK KK KEKE KKRKKK KK KAKA KKK KE 
ITEMIZE 


Put an item in menu. 
<row> and <col> are left position. 
<str> is the string item. 


<len> is the number of blanks to fill. 
KREKKKKKKEKKKKKKKEKKE KKK KKKKKKEKKKEKK KK KKKEKKREKEKERKEKEKEKKKKERKE / 


void itemize(row,col,str,len) 
int Yow col ilten: 
char seri; 

char temp[80]; 


_settextposition(row,col) ; 
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momtstext (ihel))«; 
Beoureext (str) ; 
memset(temp,' ',len--); 
temp[len) = NULL; 
~outtext (temp) ; 

} 


J RRR K KKK KEKE KKKKKKKKKEKKKEKKKKKKKEKKKKKEKKKKKEKKK 


Returns oO if 


INITIALIZE 


Set the display mode <mode> is the mode to set. 
mode 1s invalid, else returns nonzero. 


KHKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK KEE / 


short initialize(mode) 
short mode; 

{ 

ret, 

i= 0, 

btm, 
top 
gC, 
red = O, 
green = 
blue = 0 


prt 


63, 
0, 


_getvideoconfig(&vc) ; 
1f (mode < _MRES4COLOR) 
return (0) ; 
1f (! (mode == vc.mode)) { 
if(!(ret = _setvideomode (mode) ) ) 
return(0); 
_getvideoconfig(&vc) ; 
} 
else 
ret = mode; 
mocelLogorg(0,0); 
_moveto(0,0); 


meetiien( rec ) ; 
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J RRR RKEKK KEKE KEKE EEKEKK EKER KE KEKKKKKEKKKEKKEKKKEKKEKE 
CURSOR_ON 


This function uses the dos call to a ROM 
BIOS routine to set the size of the cursor 


KHKKKKKHKKK KKK KKK KKK KK KK KKK KKK KKK KKK KEKE KEK KKKKKKKKKKEEE / 
VOid CUursomeon | 


{ 


union REGS regs; /* register values for 
interrupts */ 


inoue start = 7, /* starting scan line 
of cursor */ 
end = 8; /* end scan line of cursor */ 


/* set interrupt values */ 


regs.h.ch = (char) start; 
regs.h.cl = (char) end; 
regs.h.ah = CURSIZE; 


/* interrupt call */ 
int86 (VIDEO, &regs, &regs) ; 


return; 


} 


[J RRREKKKEKKKE KEK KEKE KK KKK KKEKKEKKEKKKEKKEKKEKEKKEKKEKEKKEKEKKKES 
CURSOR_OFF 


This function uses the dos call to a ROM 
BIOS routine to set the Size of Vthe vcumcen 
HHAKKKKKEKKKKKKKKKK KK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKKEKEKER / 


void cursor off() 


{ 


union REGS regs; /* register values for 
interrupts */ 
/* set register values */ 


regs.h.ch = OFFBIT; 
regs.h.ah CURSIZE; 


/*®Pinterrupeveall “x7 
int86 (VIDEO, &regs, &regs) ; 
return; 
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J RRR KEKRKKEK KKK KKK EKER KKK KKK KEKKREKKRKKEKKKKEKREKKEKEKKEKEKE 


DATE: 16 Feb 89 - dsh 
FILE: models.c 
CONTENTS: Contains the functions for display of 


the schema and the genus graph. 


KKKKKKKKKKKEKKEKKKKKEKK KEK KEKE KKK KKK KEKE KEKE EEK ERERE / 


fainclude “defs.h" /* constant definations */ 
#include <malloc.h> /* memory allocation function defs */ 
finelude <stdlib.h> /* std ansi lib defs */ 
#include <stdio.h> /* standard i/o function defs */ 
#include <graph.h> /* graphics defs * / 
#include "symbol.h" /* symbol table defs */ 
#include <bios.h> /* defs for BIOS call to keyboard */ 
#include <string.h> /* defs for strlen function */ 
#include <ctype.h> /* dadefs for character type 

functions */ 
#define MAX LEVELS 8 


/* function prototypes for the functions in this file */ 


void 
void 
void 
Gal Gl 
void 
void 
Zon mel 
void 
void 
woOad 
void 
ioe | 


display graph(void); 

display schema(void) ; 

edit schema(void) ; 

install position(char*,char*,short) ; 
compute _positions(void) ; 

read schema(void) ; 

place text(void) ; 
draw_lines(void) ; 
draw_arrows(voidq) ; 

display message(char*) ; 
puPidncalling seqtehar *,char *); 
compute positions(void) ; 


/* global head and tail for the Entity table linked list */ 


extern Entity * ehead; 
extern Entity * etail; 


/* global head and tail for the Relship table linked list */ 


extern Relship * rhead; 
extern Relship * rtail; 
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/* head and tail for the Position table linked list */ 


NULL; 
NULL; 


Position * phead 
Position * ptail 


/* array to track the number of genera on each level */ 
short number_on_level [MAX LEVELS]; 


char * cont_msg = "Any key to return to Menu"; 


[ RRRKRRKERRKRKEKEEKEKEERKEKKREKREKER EERE KEE KEEKRKEEEEKREKRKEKKEKEKKKKK 


DISPLAY GRAPH 


Function to display the genus graph. Adapted from the 
graphical interface work done by Wyant (Ref. 16) 


HAKKAR KKK KKK IKKE KIRKE KI KERRI KERR ERK KEKE KERR ERK KEK / 
void display graph() 


Struct Videocont iq = commend. /* struct for return of 
video config info */ 
short maxx, /* max pixels on xX axis */ 
maxy; /* max pixels of y axis */ 
Relship *rp; /* pointer to relship 
linked list */ 
Position *pp; /* pointer to position 
linked list */ 
int level, /* position level 
in graph */ 
length, /* strlen of message */ 
begin, /* beginning col 
of message */ 
ie; /* counter */ 


_getvideoconfig(&config) ; 


maxx = config.numxpixels; 
maxy = config.numypixels; 


/* read in the call information from ORACLE table */ 
read relship(); 
/* install all pe on level 1 */ 


rp = rhead; 
level = 1; 


rR: 


while (rp != NULL) ({ 


if (strcmp(rp->e2type,"pe") == 0) { 
install position(rp->e2name,rp->e2type, level) ; 


} 


rp = rp->next; 


/* see if primitive entities exist 
im @enemmoge!] if not display error */ 


if (phead == NULL) { 
display message("Bad Model - no primitive 
entities -> Please Renter") ; 
delete from _entity(); 
delete from relship(); 


return; 
} 
rp = rhead; 
pp = phead; 


while (pp != NULL) { 


/* check for all 
elements that call those on the position list */ 


while(rp != NULL) { 


if (strcmp(pp->ename,rp->e2name) == 0) { 


install position(rp->elname, rp->eltype, (pp->level)+1) ; 
rp = rp->next; 
} 


pp->next; 
rhead; 


Pp 
rp 


} 

compute _positions(); 
place text(); 
draw_arrows(); 


draw_lines(); 


wo 


} 


/* display any key message */ 


length = strlen(cont_msg) ; 
begin = 40 - (length/2); 
_settextcolor (BRWHITE) ; 
_settextposition(1,begin) ; 
_outtext(cont_msg) ? 


/* free memory */ 
free relship list(); 
free position list(); 
free entity list@s% 


/* reset counters */ 
for(i =0;1i< MAX LEVELS;i++) { 
number on level[i] = 0; 


} 


return; 


[RRR KRKKEEKKEE KKK KEKE KEKE KKK EKER KEKE KKK EKKKKEKKEKKEKEKKKEKKEKKKKKEK 


DISPLAY MESSAGE 


opens a text window and displays the text passed in 
by the argument 


KKKKKKKKKEKEKKKKEKKKK KKK KKK KKK KKEK KEKE KEEKKEEKKKKEEKKEKEKKE / 


void display message(mess) 


char mess[50]; /* buffer to hold message to display */ 


{ 


long old=collor ; /* old background color 
to restore */ 
short Olds textmecolor;/* colon eo peesEore ss / 
aw one mlength; /* length of message 
for centering */ 
char buffer[80]; /* text buffer for continue 


message */ 
oleae collier = @gethbkcoler(@,; 
old_text_color = gettextcolor(); 
_settextwindow(15,5,10,70); 
_settextcolor(BRWHITE) ; 
_setbkcolor (CYAN) ; 
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_clearscreen(_GWINDOW) ; 
/* center message */ 


mlength = strlen(mess) ; 
_settextposition(2,30-(mlength/2) ); 
_outtext (mess) ; 


Serintf(buffer,"Any key to continue.......... bi 


mlength = strlen(buffer) ; 
_settextposition(4,30-(mlength/2) ); 
mouttexc (buffer) ; 


_bios_keybrd(_KEYBRD_ READ) ; 


/* restore the screen */ 


mee ete xteoloOr (Old text _ color); 
eeeeoncOlor(old color) ; 
_clearscreen( GWINDOW) ; 


_settextwindow(1,1,25,80); 
return; 


} 


[J BRREKERRR KEKE EK RRR RE RK RRR REAR RRR KEKE RRR KERR KEKE KKERAEKKR KKK 
INSTALL POSITION 


This function places each entity found in display graph 
into the position linked list. If the element is already on 
the list on the same display level it will not be added. If 
it is already on the list on a lower display level the lower 
level is converted to a place holder to allow the arc to 
span levels 


KHEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKEKEKKKKEKKKKEKREKEKEEEE / 
void install position(ename,etype, level) 


ehar ename[(20]; /* name of element */ 
char etype([(8]; /* type of element */ 
short level; /* the display level 


of the element */ 


{ 


Position *pp, /* temp pointer to new structure */ 
xtp; /* temp pointer to walk through 
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the linked list */ 


/* create new structure */ 
pp = (Position *) malloc (sizeof(Position) ); 


strcpy (pp->ename,ename) ; 
strcpy (pp->etype,etype) ; 
pp->level = level; 
pp->next = NULL; 


/* if list is empty - add it */ 


if (phead == NULL) ({ 
phead = ptail = pp; 
humber on vleve hiteve lait, 
return; 


} 


/* check to see if it is there already */ 


tp = phead; 
while(tp != NULL) { 
if (strcmp(ename,tp->ename) == 0) { 


/* see if it is on a lower level 
if so we will make the lower level 
a space holder and add new position 
on higher level to list */ 


if(tp->level < level) { 
number_on_ level[level]++; 
strcpy(tp->etype,"sp") ; 
ptail->next = pp; 
ptail = pp; 
return; 

} 

/* don't add second position if it 

is already on the list on this level */ 


else { 
free(pp); 


return; 


) 


/* not same ename so look through 
the rest of list */ 
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} 


ep ext, 
} 


/* not on list so add to end */ 
number _on_level[level]++; 

ptail ->next = pp; 

ptail = pp; 

return; 


[BRR KREKKEEKKEKEEKKEKKEKKEKKKEKKEKKKKEKKKKEKKEKKKEKKEKKKKKKKKKKEKKKEKE 


COMPUTE POSITIONS 


Function to compute the x and y coordinates of the 
elements of the genus graph 


KHEKKKKKKKKKKKKKKKKKKKKKKEKEKKKKKEKKEKKKEKKKKKEKEKEKKEKEKKKKKEKEKKEE / 


void compute positions () 


{ 


Position *pp; /* temp pointer into position list */ 


short Maxx, /* max pixels in x direction */ 
maxy, /* max pixels in y direction */ 
max level, 
/* max number of levels */ 


Xpos, /* X position of element */ 
ypos, /* y position of element */ 
Ligne /* interval between elements 

on level */ 
Vamitey /* interval between levels */ 
level; /* counter for current level */ 


struct videoconfig vc; 

/* return variable that holds video 
config intow*/ 

_getvideoconfig(&vc) ; 

maxx = vc.numxpixels; 

maxy = vc.numypixels; 


max level = ptail->level; 


S3 


level = 1; 
/* initialize pointer to head of list */ 
pp = phead; 


/* space genera evenly on screen */ 


yint = (short) (maxy/(max_level + 1)); 
Xint = (short) (maxx/ (number _on_level[level]+1)); 
ypos = yint; 


xpos = xXint; 
while(pp != NULL) { 


if(pp->level > level) { 
level++; 
Xint = (short) (maxx 
/ (number _on_levelflevel]+1)); 
ypos += yint; 
xpos = xXint; 


} 
/* assign position */ 


pp->xpos = xpos; 


pp->ypos ypos; 
/* increment x position and go to next position */ 
xpos += xint; 


pp = pp->next; 


J RRRRRERE RE KKEKKKRKRKERERE KKK KKK KIRKE RE REE KEKE KEKE REE KKK REA 
PLACE TEXT 


Function to place the genus name on the genus graph 


KHKKKKKKKKEKKKKK KKK KEKKEKKKKK KKK KKK KEKE KKK KEKEKKEKEKEEEKEKKEKE KEKE / 
void place text() 


{ 
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Position *pp; /* temp pointer into position list */ 


Secuce Videoconfig vc; 


/* return variable that holds video 
Gontagsinio. */ 


length of string to center */ 


max pixels in x direction */ 
max pixels in y direction */ 


col on which to 


center text */ 


row on which to 


center text */ 


short 
length, /* 
maxx, /* 
maxy ; /* 
int Centerx, 7 * 
centery; /* 
Pvoat textx = 80.0, 
texty = 28.0; 
liehe type buf[6]; 


_getvideoconfig(&vc) ; 


maxX = vc.numxpixels; 
maxy = vc.numypixels; 


pp = phead; 


while(pp != NULL) { 


/* max values 

of text coordinates */ 
/* must be floats to 
do coordinate 
conversion */ 


/* buffer to hold 
entity type */ 


/* convert graphics position to text row and col */ 


centerx = (short) (textx * (pp->xpos) /maxx) ; 


centery 


(Shore) (2o5— 


(texty * (pp->ypos) /maxy) ); 


length = strlen(pp->ename) ; 


_settextposition(centery, (centerx - (length /2))); 


if (strcmp(pp->etype,"sp") != 0) { 


_outtext (pp->ename) ; 
sprintf(type buf," /%s/",pp->etype) ; 


_outtext (type buf) 


e 
t 
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pp = pp->next; 


[RRR KKKKKKKEKKRKRKKKREKKKEKKKEKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKKKK 


DRAW_ARROWS 


Function to draw the arrow heads for lines representing 
the calls on the genus graph 


KHKKKKKKKKKKKKKKKKKKKKKKKEEKEKKKKKKKKKKKKEKKKKEKEKKEKKKKKKEKKKEE / 


void draw_arrows() 


{ 


short ey /* X pos of arrow tip */ 
ve J/* y pos of arrow tip */ 
maxx, /* max pixels in x direction */ 
maxy; /* max pixels in y direction */ 


Position *pp; /* temp pointer to the position 
linked list */ 


struct videoconfig vc; 
/* return variable that holds video 
config info */ 


_getvideoconfig(&vc) ; 


maxx = vc.numxpixels; 
maxy = vc.numypixels; 


pp = phead; 


while(pp != NULL) { 
/* draw arrowheads on all positions 
except spaceholders and pe */ 


if (strcmp(pp->etype,"sp") != 0) { 


if(strcmp(pp->etype,"pe™") != 0) { 
X = pp->xpos; 
/* offset y from the text */ 
Y = pp=>ypos - 1s. 


/* draw arrow head */ 
_moveto(x,maxy-y) ;} 

_lineto(x-3,maxy-y+4) ; 
_lineto(x+3,maxy-yt4) ; 
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blineto(x,maxy-y) 7 
_floodfill(x,maxy-y+2,BRWHITE) ; 
_moveto(x,maxy-yt4) ; 
_lineto(x,maxy-y+t8) ; 
} 
} 
pp = pp->next; 


return; 


[RRR REE EKKKKKEKKKKKKKKKKKKKKKEKKKKKKKKKEKKKKKKKKKKKKKKKKEKK 


DRAW LINES 


Function to draw the lines representing the calls on 
the genus graph 


KHEKKKKKKEKKKKKKKKKKKKKKERKKKKKKKKKEKKEKKKKKEKKKKKKKKKR KEKE EE / 
void draw_lines() 


{ 


Relship *rp; /* temp pointer to the 
relship linked list */ 

Position *pp; /* temp pointer to the 
position linked list */ 

Position *tp; /* pointer to find 


all calling elements */ 


short level diff, /* vertical difference 
between two genus levels */ 
begin, /* begining level 
of line */ 
xbegin, /*® xX Coordinate of 
called element */ 
ybegin, /* y coordinate of 
called element */ 
xend, /* X coordinate of 
calling element */ 
yend, /* y coordinate 
of calling element */ 
Maxx, /* max pixels in x 


direction */ 
maxy ; /* maxX pixels in y 
direction */ 


Sunucc Videoconftig vc; 
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struct videoconfig vc; 
/* return variable that holds video 
config info */ 

char called name| 20 jt = ccrp ere uercrs 
for the strings to 
compare */ 

calling_name[20]; 

/* initailize pointers */ 

rp = rhead; 

_setcolor (BRWHITE) ; 

_getvideoconfig(&vc) ; 


maxx = vc.numxpixels; 
maxy = vc.numypixels; 


while (rp != NULL) { 
pp = phead; 
strcpy (called name, rp->e2name) ; 


strcpy(calling name,rp->elname) ; 


while (pp != NULL) { 
/* find position of called element */ 
if(strcmp(called name,pp->ename) == 0) { 
begin = pp->level; 
xbegin = pp->xpos; 
ybegin = pp->ypos; 


/* look through the rest of list 
for all calling elements */ 


tp = pp->next; 

while(tp != NULL) { 

if(strcmp(calling_name,tp->ename) == 0) { 
level diff = tp->level - begin; 


if(level diff == 1) { 
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/* leave space for text if not space holder */ 
if (strcemp(tp->etype,"sp") == 0) 


yend = tp->ypos; 
else 
yend = tp->ypos - 25; 


_moveto(pp->xpos, 
maxy - pp->ypos) ; 


_lineto(xend,maxy-yend) ; 


} 


if (level diff > 1) { 

/* draw upper part from space holder */ 
xbegin = xend; 
ybegin = yend; 
xend = tp->xpos; 
yend = tp->ypos-25; 
_moveto(xbegin, 

maxy-ybegin) ; 

_lineto(xend,maxy-yendq) ; 


} 
tp = tp->next; 


} 
pp = pp->next; 
} 


Bp — EPpy = next; 


So 


[ RRRKKRKKKKKKKKKKKKK KKK KKK KKK KKKKEKKKK KK KEKE KKKKKKEKEKEKKKKKEKES 


DISPLAY SCHEMA 


Function to display the model's structured modeling 


schema. 


KHKEKKKEKKKKEKKKKKEKEKKKEKKKEKKKEKEKKEKEKE KK EKK KEKE EEK KEKEKRKEKEKEKEKEKEK / 


void display schema () 


{ 


char buffer[240], 
calling _seq[80]; 


struct rccoord text; 


shahe length, 
begin; 
Entity * ep; 


/* read in data */ 
read schema(); 
read _relship(); 


/* set up screen */ 


/* buffer to hold genus para */ 
/* butfer tovconstruce 

calling sequence */ 

/* current text row and col */ 


/* strlen of message */ 
/* beginning col of message */ 


/* pointer to linked list */ 


_settextwindow(1,1,25,80); 


_Wrapon(_GWRAPON) ; 


_SECCeXecolor (BRYHETEy. 


/* initialize pointer to top of list */ 


ep = ehead; 
while(ep != NULL) 
if (strcmp(ep->etype,"model") == 0) { 
text = gettextposition(); 


text.row += 
eext. col. — 


_settextposition(text.row,text.col) ; 


=)0 


sprintf (buffer, "%s 
$s.",ep->ename,ep->comments) ; 
mourcext (buffer) ; 


else if (strcmp(ep->etype,"pe") == 0) { 


text = _gettextposition() ; 

Text crow += 2; 

Text. col —16; 
_settextposition(text.row,text.col); 
sprintf(buffer,"%s /pe/ %s.", 
ep->ename,ep->comments) ; 
BOuUGce se (beter) ; 


else if (strcmp(ep->etype,"ce") == 0) { 


text = _gettextposition() ; 

text.row += 2; 

ext. cOldxes = 0; 
_settextposition(text.row,text.col) ; 


build calling seq(ep->ename,calling_seq) ; 
sprintf(buffer,"%s %@s /ce/ %s %s.", 


ep->ename,calling seq,ep->idx_stmt, 
ep->comments) ; 


BOuUrtEexXe (bute): 

} 

else if (strcmp(ep->etype,"a") == 0) { 
text = gettextposition(); 


COME GOWwet— 2; 
ext Gola Ou 
_settextposition(text.row,text.col); 


build calling seq(ep->ename,calling_seq); 
sprintf(buffer,"%s %s /a/ 78 ts %s.", 


ep->ename,calling seq,ep->idx_stmt, 
ep->grange,ep->comments) ; 


mouctext(buifer); 

} 

else if (strcmp(ep->etype,"va") == 0) { 
text = gettextposition(); 


text.row += 2; 
wexe,col —. 0; 
_settextposition(text.row,text.col) ; 


om 


build calling seq(ep->ename,calling_ seq); 


sprintf(buffer,"%s %s /va/ %*s *s %s.", 
ep->ename,calling seq,ep->idx_stmt, 
ep->grange,ep->comments) ; 

_outtext (buffer) ; 


else if (strcemp(ep->etype,"t") == 0) { 


text = _gettextposition(); 

text.row += 2; 

text.col = 0; 
_settextposition(text.row,text.col) ; 


build calling seq(ep->ename,calling_seq) ; 


sprintf(buffer,"%s %s /t/ %s ;%s %s.", 
ep->ename,calling seq,ep->1idx_stnt, 
ep->grule,ep->comments) ; 

_outtext (buffer) ; 


else if (strcemp(ep->etype,"f") == 0) { 


text = _gettextposition(); 

text.row += 2; 

textscol <0; 
_settextposition(text.row,text.col) ; 


build calling seq(ep->ename,calling_ seq) ; 


sprintf(buffer,"%s %s /f/ %s ;%s %s.", 
ep->ename,calling seq,ep->idx_stmt, 
ep->grule,ep->comments) ; 

_outtext (buffer) ; 


} 


ep = ep->next; 
} 
/* display any key message */ 
length = strilen(contimsg, 
begin = 40 - (length/2) ; 
_settextcolor(BRWHITE) ; 


_settextposition(1,begin) ; 
_outtext(cont_msg) ; 
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/* free memory */ 
free entity list(); 
free relship list(); 
return; 


} 


[J RRRKKKKKKKKKKKKKKKKEKKKKKKKKKKEKEKKKEKKEKKKKEKKKKEKKKKKKKKKKKKK 


BUILD CALLING SEQUENCE 


function to build the calling sequence for genus ename 
by looking at the relship linked list 


KHKAKKKKKKKKKKKKKKKEKKKKKEKKK KKK KKKKKKKKEKKKK KKK KKKKKKEKKKKEEEKKE / 


void build calling seq(ename,calling seq) 


char ename[20], /* name of entity we are buiding 
calling sequence for */ 
calling seq[80]; /* buffer to concatenate 


calling seq */ 


tate length; /* length of calling seq */ 
Relship be 2) 2 
rp = rhead; 
Senewy (calling seq," ("); 
while(rp != NULL) { 
if(strcmp(rp->elname,ename) ==0) { 
strcat(calling seq, rp->e2name) ; 


strcat(callmng ised,” ,"); 


) 


rp = rp->next; 


} 


/* add right paren at end in place of final comma */ 


length = strlen(calling_seq); 
Calling seq{[length-1] = ')'; 


mee rn: 


se) 


[RRR KKRREKRERREKERKKRKKKE KEKE KKK EEKEEEKREREKEEEKEKEKERKKKEKKEKKEE 


OME SS aba wes 


function to allow user to add the index statement, the 
generic range and the natural language interpretation 
that were not generated by the parser 


RHKKEKKKEKKKEKKEKEKKEREKERKEKEEEKEEEKKE EERE RK REKREEREEREEEEEEEE / 


"ADD MODEL DOCUMENTATION"; 
"Enter (E)dit (S) kipmor (Ojmat'; 


char * mlinel 
char * mline2 


void edit schema () 


{ 


Bie ty * ep; /* temp pointer to entity 
linked list */ 
int length, /* length of centered msg */ 
done = FALSE, /* finished flag */ 
begin, /* begining col of centered 
text */ 
line, /* current text line */ 
(oy /* Value of character 


returned from getche */ 


char stringi2 ie /* buffer for edit choice */ 
line buf[81]; /* buffer for mnemonic name */ 


read schema() ; 
/* initialize full screen text window */ 


_setbkcolor (BLACK) ; 
_settextwindow(1,1,25,80) ; 
_clearscreen(_GWINDOW) ; 


length = strlen(mlinel) ; 
begin = 40 - (length/2); 
_settextcolor (RED) ; 
_settextposition(4,begin) ; 
_outtext(mlinel); 
_settextposition(s,25); 
_settextcolor (BRWHITE) ; 
_outtext(mline2) ; 
 SCCCOlOm (RED): 
box(3,begin-1,1,length) ; 
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ep = ehead; 


while(ep != NULL) { 


while ( ! done) { 
_settextcolor (BRWHITE) ; 


Bcetrexcpocte1on (12,5) ; 
_outtext("Genus Name: "); 


_outtext (ep->ename) ; 
_settextposition(12,42); 
Pourcext ("Index ="); 
_outtext(ep->etype) ; 


/* check to see what we want to do */ 


fflush(stdin); 
@ = getch(stdin)- 


Switch(c) { 


case ‘e'!: 
case 'E!: 
{ 


/* set new text window for prompts */ 
_setbkcolor (BLACK) ; 
_settextwindow(14,1,25,80) ; 
_clearscreen(_GWINDOW) ; 


/* edit idx_stmt grange and comments */ 


LElMShCSsed in) ; 
_ settem@positien(2,5); 
BOUERPOMEe Eincer thewindexsetacemenct:"  ); 


_settextposition(3,5); 

gets(line buf); 

strcpy (ep->idx_stmt,line_buf) ; 
_settextposition(5,5) ; 
_outtext("Enter the Generic Range") ; 
_settextposition(6,5); 

gets(line buf); 
strcpy(ep->grange,line buf) ; 
_settextposition(8,5) ; 

Bouttexc (Enters che Enterpretation:" ); 
_settextposition(9,5); 
gets(line_buf) ; 


=e) 


case 
case 'S';3 
{ 
} 
case 'q'! 
case 'Q! 
{ 
} 
eefaule: 


} 


clear line(12); 
ep = ep->next; 


strcpy (ep->comments,line buf); 


done 


= TRUE; 


/* clear the prompts */ 


_clearscreen(_GWINDOW) ; 
/* text window is full screen */ 
_settextwindow(1,1,25,80) ; 


re ts 


done = FALSE; 


} 


break; 


/* skip this one */ 
done = TRUE; 
break; 


/* save changes and free memory */ 
delete from _entity(); 

write entity(); 

free entity list(); 

recur, 


continue; 


/* write to ORACLE and free memory */ 


delete from_entity(); 


write entity(); 
free entity list(); 


return; 
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J BREE REE KKEKKE KK KEKE KKKEKEKEKKKKKEKKKKKKKEKKKEKKKEKKKKKKKKEKKES 


DATE: 22 Jan 89 - dash 
PLE: enter.c 
CONTENTS: Functions that allow the user to enter a new 


model in mathematical format and convert this format to 
the entity and relship tables defined in the ORACLE 
database. 


KH KKKKKKKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKK KKK EKER EKKEKEKEEEKE / 


#include "defs.h" /* constant definations */ 

#include <malloc.h> /* memory allocation function defs */ 
#include <stdlib.h> /* std ansi lib defs */ 

#include <stdio.h> /* standard i/o function defs */ 
#include <graph.h> /* graphics defs * / 

#include "symbol.h" /* symbol table defs */ 

#include <bios.h> /* defs for BIOS call to keyboard */ 
#include "ytab.h" /* defs for symbol types */ 

#include <string.h> /* defs for strlen function */ 
#include <ctype.h> /* defs for charaeter 


type functions */ 


/* function prototypes for the functions in the file */ 


void yyerror(void) ; 

void delete equation(int) ; 

void translate table(void) ; 

fora clear lime(int) ; 

vou install entity(char *mcham *,char *;ehar *, 

Ghar *,¢rar™,char *,char *); 
void install relship(char *,char *,char *,char *,char *) ; 
void enter model description(void) ; 
void rename genus relship(char*,char*) ; 
void free entity list(void) ; 
void free module list(void); 
void free relship list(void) ; 
void change relship type(char *); 
void build _monotone_order(char*) ; 
void install module(char*,char*,char*,char*,char*,int) ; 
void build grules(voidqd) ; 
void change_symbol (char*,char*) ; 
void insert_grule(char*,int); 


a / 


/* global head and tail for the symbol table linked list */ 


Symbol *head 
Symbol *tail 


NULL; 
NULL; 


/* global head and tail for the Entity table linked list */ 


Entity * ehead 
Entity * etail 


NULL; 
NULL; 


/* global head and tail for the Relship table linked list */ 


Relship * rhead 
Relship * rtail 


NULL; 
NULL; 


/* global head and tail for the Module table linked list */ 


Module * mhead 
Module * mtail 


NULL; 
NULL; 


i ol 


/* head and tail for the Position table linked list */ 


extern Position * phead; 
extern Position * ptail; 


[RRR KKK RK RKKKK 
YYERROR 


Called by the parser in the case of a syntax error. 


Opens text window and displays location of the error. 
KKK KKK KKK KK KKK RIKER KKK EKER ERE KER EKER E RK ERE KEKE KERRI KK / 


void yyerror() 


{ 


char buffer[80]; /* buffer to hold text 
error message */ 

extern char yytext[]; /* text buffer used by 
YACC parser to hold current 
token */ 

long soldecolom, /* old background color */ 

int mlength; /* length of text message 


for centering */ 


Old_color = _getbkcolor() ; 
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_settextwindow(15,10,20,70);3 
_settextcolor(BRWHITE) ; 
_setbkcolor (CYAN) ; 
_clearscreen(_GWINDOW) ; 


/* output syntax error found */ 

sprintf (buffer, 

"Syntax Error-> Unexpected Symbol: %#s",yytext) ; 
mlength = strlen(buffer); 
_settextposition(2,30-(mlength/2) ); 

_outtext (buffer) ; 


Spiumnctibufrer, "Any key to continue...... tt) 
mlength = strlen(buffer) ; 
_settextposition(6,30-(mlength/2) ) ; 

metecext (buffer) ; 


/* wait for any key */ 
_bios_kKeybrd(_KEYBRD_READ) ; 


/* reset screen */ 
esetbkKcolor(cld color); 
_clearscreen(_GWINDOW) ; 


_settextwindow(1,1,25,80); 
Boece ecxktpesition(5,5); 


J RRRRKERE KERR ERE KR KR RE RRR RE RR ERR ER ERR ERE KR ERE RREREKEKKEKKK 
ENTER_MODEL 


Function that will prompt the user for model to input. 
Calls function to write the model to the ORACLCE database. 


RREKKKKKKKKKKKKKKEKKKRKKKKKKKKKERKKKRKKKKKKKKRKKKKKKKEKKKEKER / 


char omess[] = 
"Enter the Objective function or END to exit to main menu"; 


int lomess = sizeof(omess) ; /* length of message used 
for centering */ 
extern char * input_pointer; /* pointer to the current 


input character to be read 
by scanner */ 
char equation buffer[80]; /* buffer that holds 
current equation */ 


void enter _model() 
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int equation_no = 0; /* counter for the equations */ 


char buffer[80], /* buffer for prompts */ 
ebuf[3]), /* buffer for 

equation_no string */ 
name[20], /* model name */ 
name1[20]; /* input model name */ 
int status = 1; /* parser error status */ 
int lmess; /* length of message 

used for centering */ 
int line; /* current text line */ 
char eq[6]; /* text string used to 


concatenate with equation # 
for a temporary variable name */ 
lee 14; /* index */ 
/* Window is full screen */ 
_setbkcolor (BLACK) ; 
_settextcolor (BRWHITE) ; 
_settextwindow(1,1,25,80) ; 
_Clearscreen(_GWINDOW) ; 
_settextposition(5,5) ; 
_outtext ("Enter the model Name> ™); 


gets(namel) ; 
clear _line(5); 


strcpy(name,"M "); 

strcat(name,namel); 

install entity (name, "model" : he | : ee One ; he ; he 2 : | ee ; rt ) : 

cursor on(); 

line = 5; 

strcpy (eq, "EQN") ; 

/* enter the objective function */ 

while(status == 1) { 
_settextcolor (BRWHITE) ; 
_settextposition(3,40-(lomess/2) ) ; 


_outtext (omess) ; 


_settextposition(line,5); 
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MOULECXG CG Obs>. 7. = "); 
status = yyparse(equation_no); 
/* check to see if syntax error - if so 
remove symbols from table */ 
if (status == 1) { 
*input_pointer = NULL; 
delete equation(equation_ no); 


clear line(3); 
clear _line(5); 


} 


/* install objective function as entity */ 


for(i = 071<80;1++) { 
if(iscntrl (equation buffer[i]) != 0) { 
equation buffer[{i} = NULL; 
} 
} 


if(tail->s_ type != END) 
install entity ("EONO! Mf URED ty ty 
equation_buffer," "); 


} 


/* set variable for second equation */ 


linet++; 
equation not+t+; 
status = 1; 


/* loop until the END symbol] is entered */ 


while(tail->s_type != END) { 


clear line(3); 
Clear _line(line) ; 


sprintf (buffer, 
"Enter Equation for constraint Number 
a or END after last constraint", equation_no); 


lmess = strlen(buffer) ; 
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_settextposition(3,40-(lmess/2) ); 
_outtext (buffer) ; 
_settextposition(line,5); 
sprintf(buffer,"EQN %@d> ",equation_ no); 
BOULCCXE (DUDICE), 
status = yyparse(equation no); 
/* check to see if syntax error - if so 
remove symbols from table */ 

if (status == 1) { 

*input pointer = NULL; 

delete equation(equation no) ; 
else { 

/* install constraint as entity */ 


itoa(equation_no,ebuf,10); 
strcat(eq,ebuf) ; 


for(i = 0;71<80;it+) { 
if(iscntrl (equation buffer[i]) != 0) 
equation buffer[{i] = NULL; 
} 
} 


if (tail->s_ type != END) { 
install entity (eq, ty tt P te Ott : 7 Off : te ; te Ott , 
equation buffer," "); 

} 

eq{3] = NULL; 


equation not+; 
NESS 


} 


translate table(); 
enter model description(); 
build grules(); 
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} 


build monotone order(name) ; 
write_entity(); 

write relship(); 

write module(); 

free entity list(); 

free relship list(); 

free module list(); 


return; 


KEEKEKKKEKEKEEEKEKEKEKEEKEEKEEKEKEKEKEEKEKEEKEEKEEKEKEKKEKEEKEEKKEKEEKEKEKEKEEEEEESE 


CLEAR LINE 


Pometronm that will clear text line. Bine is cleared in 
the currently defined text window. 


RRREKKKKKEKKKKKEKEKKK KKK KK EEEEKE KEKE KERR EEEKKEEEEEEE / 


void clear line(line) 


arate line; /* line number to be cleared */ 


{ 


char buffer[80]; 
_settextposition(line,1); 


sSprantft (buffer, 
tt 


_outtext (buffer) ; 
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[BR RRERERRRRRR EERE REE ERR RRR EEE RRR ER EEE RR RERERER ERK KERER 
DELETE EQUATION 


Function to remove excess symbols from the end of the 
symbol table when a syntax error occurs. The symbol table 
is referenced by the global head and tail pointers. The 
symbols to be deleted will always be the last on the linked 
List 
KAKKEKKKEKKKKEKKEREKKKKEKKKEKEK ERK EKER REE ERKEKRERERERERKKEEKEKE / 
void delete _equation(eqno) 
int eqno; /* equation number to be deleted */ 

{ 
Symbol * lp, /* temp pointers to 


symbol table entries */ 
* ED; 


/* no symbols on list */ 
if (head == NULL) { 
return; 
} 
else { 
/* equation is the only entry on the table */ 
if (head->equation == egno) { 
/* set pointer to first symbol to delete */ 
tp=lp=head; 
/* set head and tail to empty list */ 
head = tail = NULL; 
/* free memory used in symbols */ 
while(lp != NULL) { 
lp = tp->next; 


free((void *)tp); 
tp = lp; 
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return; 


} 
/* more than one equation on the symbol table */ 


else { 
tp = head; 
lp = tp->next; 
while(lp != NULL) { 


if(lp->equation == eqno) { 
tan) = tps 


/* free memory used in symbols */ 


while(lp != NULL) { 
tp = Ap; 
lp = tp->next; 
free((void *)tp); 
} 


return; 
} 
else { 
tp = lp; 
lp = tp->next;? 
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KAKI KKK KKK KIKI KIKI KKK KKK KEKE KKK KAKA KKK KKKKKKKKKE 
TRANSLATE TABLE 


Function to translate the symbol table created by the 
scanner to the form needed for entry into the relational 
tables of ORACLE RDBMS 


KHKKKKKKKKKEKK KK KKK KK KKK KKK K KKK KEKE KEKE KKKEKKKKEKKKKKKEK / 


void translate table() 


{ 
Symbol *x1lp, 


*xtp; /* leading and trailing pointers used for 
walking down the symbol table list */ 


int ik /* index for counting */ 
length; /* number of indices 
in compound index */ 
char ibuf({2]; /* index buffer for seperating 


compound indices */ 
char ebuf[{3]; /* temp buffer to hold equation name */ 
char eq[{6]; /* text string used to concatenate 
with equation # for a temporary 
variable name */ 
/* initailize pointers to the begining of list */ 
tp = head; 
if (head == NULL)  { 
fprintf(stderr, "The symbol table is empty - 
Please reenter your model") ; 


exit(1); 
} 


lp = head->next; 


strcpy (eq, "EQN"); 

/* go through entire table */ 

while(lp != NULL) { 
Switch(tp->s_ type) { 
case END: 
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{ 
} 


case IDENTIFIER: 
{ 


return; 


if (lp->s_type == INDEX) { 
length = strlen(lp->s_name) ; 
if (length > 1) { 


install_relship("CALLS",tp->s_name,"a",lp->s_name,"ce") ; 
install entity (lp->s_name, Hoel : 0 | , Tt ee A ; 88 ; ] ee ; eos , I | : 


/* break up index */ 
for (1=0;i<length; itt) { 
ibuf[0] = lp->s_name[i]; 
ibuf[1] = NULL; 
imestall entity ( 1 but ; "pe" ; te Off : ibuf P tt ott : te oft P te ott : iT ts) : 


install _relship("CALLS",lp->s_ name,"ce",ibuf,"pe") ; 


} 


) 


else { 


install relship("CALLS",tp->s_ name,"a",lp->s_ name,"pe"') ; 
PMiocallechtity( kp->s name,"pe","a @ip->s name," "," "," "8 


2 ee 


} 


install entity (tp->s_name, Wal ; Tt ; Tt ; | ; eo 88 : 88 F 9 ) : 


itoa(tp->equation,ebuf,10); 

strcat(eq,ebuf) ; 

if(tp->equation == 0) { 
inSoecailiemeieshnip( "CALLS" ,eq,"£", 
Epa Ss Malena); 


else { 


iMsealberelsShip("CALLS",eq,"t", 
pss lamer al, 


nO 7 


eq({3] = NULL; 
tp = lp; 
lp = tp->next; 
break; 
} 
} 
default: 
{ 
Cpe be 
lp = lp->next; 
break; 
} 
} 
} 
reeurn: 


} 


KKK KK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KEKE KKKKKKKKKKK KE 
INSTALL ENTITY 


function to install entity found in LP model into 


entity 


linked list. 


Creates list if list is empty and 


checks to aovid double entries 


KK KK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKKKKKKKKKKKKEKE KK / 


void install entity(ename,etype,dname, index, 
index stmt,grange,grule,comments) 


char ename[20]; /* 
char etype[4]; yoe 
char dname[30]; /* 
char index[8]; l 
char index stmt[50]; 
chag grange[20]; 
char grule[8s0]; 
char comments[ 80]; 
{ 
Pnei ey * ep, /* 
*tp; /* 
int same; 


name 
type 


of entity */ 
of entity */ 


descriptive name of entity */ 
index set */ 


/* 
/* 
/* 
/* 


index statement */ 

generic range stmt */ 
generic rule */ 

informal interpertation */ 


temp pointer to structure */ 
temp pointer to check 
for duplicates */ 


/* return variable from 


stremp() 0 if entity 
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isin list */ 
/* dynamically allocate memory for structure */ 
ep = (Entity *) malloc(sizeof (Entity) ); 
/* assign values to structure */ 
strcpy (ep->ename,ename) ; 
strcpy(ep->etype,etype) ; 
strcpy (ep->dname,dname) ; 
strcpy (ep->1idx, index) ; 
strcpy (ep->idx_stmt, index stmt) ; 
strcpy (ep->grange,grange) ; 
strcpy (ep->grule,grule) ; 
strcpy (ep->comments, comments) ; 
ep->next = NULL; 
/* is list empty - add to head */ 
if (ehead == NULL) { 
ehead = etail = ep; 
return; 
} ® 
/* check list for duplicates */ 
tp = ehead; 
while (tp != NULL) { 
same = strcmp(ename,tp->ename) ; 
if (same == 0) { 
/* already in list */ 
free(ep); 
return; 
} 
else 
ebe— Ep->next; 
} 
/* not found - so add to end of list */ 
etail->next = ep; 


etail = ep; 
Becurn >: 
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[ RRKRKKRKKKKEKEKKKEKKEKKKKKEKKEKEKEKEEKEKEKEKEEKKEKKKKEKRKKKKKEKKKEKE 


INSTALL RELSHIP 
installs relationship found in LP model into relship 
table. checks to see if table is empty or if the 
relationship is already represented. 


KREKKKKKKKEKEKEKEKKKEKEKERE EE KKKEEE EERE EKEREKEREREKERERKKEKK / 


void install relship(rtype,elname,eltype,e2name,e2type) 


char rtype[{12]; /* type of relationship */ 
char elname[20]; /* name of calling element */ 
char eltype[8]; /* type of calling element */ 
elicits e2name[20]; /* name of called element */ 
eats e2type[8]; /* type of cleed element */ 
{ 

Relship * rp, /* temp pointer to structure */ 

zai) OF /* temp pointer to check 


for duplicates */ 

int samel,same2; /* return variables from 
SEGemnp (jo) 1ieentaty 
is in list */ 

/* dynamically allocate memory for structure */ 

rp = (Relship *) malloc(sizeof(Relship) ) ; 

/* assign values to structure */ 

strcpy(rp->rtype,rtype) ; 

strcpy (rp->elname,elname) ; 

strcpy(rp->eltype,eltype) ; 

strcpy (rp->e2name,e2name) ; 

strcpy (rp->e2type,e2type) ; 

rp->next = NULL; 

/* is list empty - add to head */ 

if (rhead == NULL) { 


rhead = rtail = rp; 
return; 
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popemeck list. for duplicates */ 


tp = rhead; 

while (tp != NULL) { 
samel = strcmp(elname,tp->elname) ; 
same2 = strcmp(e2name,tp->e2name) ; 
if ((samel == 0) && (same2 == 0)) { 


} 


/* already in list */ 
free(rp); 
return; 

else 


tp = tp->next; 


/* not found - so add to end of list */ 


rtail->next = rp; 


rtail 


= rp; 


return; 


[BRR RKEKKKKKEKEKEKKEEKRKEKKKEKEKRKEEEKEKEKEKEKKEEKKKKKEE 


ENTER MODEL DESCRIPTION 


function to enter the mnemonic genus names into the 
model description. 


KKKKKKKKKKKKKKKKKKEKKKKKEKKEKEKKK KKK KKK KKK KEKE KEKE EKEKEKEK / 


char * linel = "ENTER MODEL DESCRIPTIVE INFORMATION"; 
char * line2 = "Genus Name Genus Type Mnemonic Genus 
Name Generic Rule"; 


char * line3 = "Writing to ORACLE RDBMS table ..... ae 


void enter model description () 


{ 


Entity * ep; /* temp pointer to entity 


Lelia 


linked list */ 


int Tengen, /* length of centered msg */ 

begin, /* begining col of centered text */ 
line; /* current text line */ 

char name[20], /* buffer for mnemonic name */ 
VOrn| 2ae, /* buffer for Yes or No answer */ 


/* initialize text window */ 


_setbkcolor (BLACK) ; 
_settextcolor (BRWHITE) ; 
_settextwindow(1,1,25,80) ; 
_Clearscreen(_GWINDOW) ; 
cursor on(); 


length = strlen(linel) ; 
begin = 40 - (length/2); 
~Settexecolor( Rep): 
_settextposition(4,begin) ; 
_outtext(linel) ; 
_settextcolor (BRWHITE) ; 
_settextposition(6,1); 
_outtext(line2) ; 


box (3, begin=2.1, length), 


Liner= "7; 
ep = ehead; 


/* put out genus names */ 

while(ep != NULL) { 
_settextposition(line,5); 
_outtext (ep->ename) ; 
_settextposition(line, 22); 
_outtext(ep->etype) ; 
_settextposition(line,47); 
_outtext(ep->grule) ; 


linet++; 
ep = ep->next; 


} 


line = 7? 
ep = ehead; 


/* accept mnemonics */ 


2 


while(ep != NULL) { 
_settextposition(line, 30); 
gets (name) ; 


/* check to see if this is a decision variable */ 


if (strcemp(ep->etype,"a") == 0) { 
_settextposition(line, 45); 
_outtext("Decision variable ?(Y/N) "); 
gets(yorn); 
if (strcempi(yorn,"y") == 0) { 


strcpy(ep->etype, "va"') ; 
change_relship type(ep->ename) ; 


} 


/* check to see if new name was entered 
and replace if it was */ 


if (isalnum(name[0]) != 0) { 
/* name for pe will include index */ 


if (strcemp(ep->etype,"pe") == 0) { 
strcat(name,ep->ename) ; 


} 


rename genus relship(ep->ename,name) ; 
change_symbol (ep->ename, name) ; 


/* replace with new descriptive name */ 
strcpy (ep->ename, name) ; 


} 


ep = ep->next; 
line++; 
} 


length = strlen(line3) ; 
begin = 40 - (length/2); 
_settextcolor (BRWHITE) ; 
_settextposition(23,begin) ; 
_outtext(line3) ; 
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J RRR KKK RRR KR RKKKRRKEKKEKRKKK KK KK KER ERKKKKEKKK 
RENAME GENUS _RELSHIP 


checks through the entire relship linked list to replace 
oldname with the mnemonic new name. 


KHEKKKKKKKKKKKKKKKKEKKEKKKKKKKKKKKKEKKKKEKKK KKK EKKEKKKKEKKKEKEKKE / 


void rename _genus_relship(oldname,newname) 


char * oldname, /* name of genus to be renamed */ 
* newname; /* replacement mnemonic name */ 
{ 
Relship * rp; /* temp pointer into relship 


linked list */ 


PMiGercese /* return value from strcmp = 0 
1f match */ 


/* pointer to top of list */ 
rp = rhead; 
/* check through all names on the list */ 
while (rp != NULL)  { 
/* check calling element */ 
test = strcmp(rp->elname,oldname) ; 
ie ( test —— Or me 
strcpy (rp->elname,newname) ; 
/* check called element */ 
test = strcmp(rp->e2name,oldname) ; 
if(test == 0) { 
strcpy (rp->e2name,newname) ; 


} 


rp = rp->next; 
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[RRR RR ERR ER ERR ERR ERE KKK KR KR KKK KKRKKRKK KKK KKK KKK KKK KK 
CHANGE RELSHIP TYPE 


checks through the entire relship linked list to replace 


change the entity type of ename to va. This is caled when a 
decision variable is identified 


RHEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK KKK RRR EE / 
void change_relship type(ename) 
char * ename; /* name of decison variable */ 


{ 
Relship * rp; /* temp pointer into relship 
linked list */ 

y= pointer to top of list */ 

rp = rhead; 

/* check through all names on the list */ 

while (rp != NULL) /{ 
/* check calling element */ 
if (strcmp (ename, rp->elname) 


strcepy(rp->eltype,"va"') ; 
} 


/* check called element */ 
if (strcemp(ename,rp->e2name) == 0) { 


strcpy (rp->e2type,"va") ; 
} 


rp = rp->next; 


oS 


[J BRRRRRRRERKKRKEKKKEKRKRKKKEEREKREREKKE RR ERERERKEKEKKRKEKEKEKEKEERE 


FREE ENTITY LIST 


frees dynamic memory used by entity linked list 


KHEKKKKKKKKEKKEKKEKKK KKK KKK ERK KEKE KKEKKREKKKEKEKEKKREKRER / 


void free entity list() 


{ 


} 


Ent. ey *1p, 
*ktp; 


ehead; 
Ep--next, 


tp 
1p 


ehead = NULL; 
while (lp != NULL) 


free(tp); 
tp = lp; 


lp = tp->next; 


} 
free(tp); 


[RRRRRRKRERRKRKEKRKEEKREKEKEKKKEKKKEKKEKEKEKRKEEKKEKKERKEKKEKEKEKKKKKS 


PREG REESHEP Lise 


frees dynamic memory used by relship linked list 


RREKKKKEKRKEKEKEKKKKEK KK EKKEKEKKEKEKREKKEEKRKKEKEKREREKEKEKRREKRKEKKEKREKKE / 


void free relship list() 


{ 


Relship *1lp, 
*tp; 


rhead; 
tp->next; 


tp 
lp 


rhead = NULL; 


while (lp != NULL) 


{ 
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free (tp) ; 
tp = lp; 
lp = tp->next; 
} 
free(tp); 
} 
[RRR KEKE RK KKK KEKE KE KKK KKK KEKE KEKKKEKKKKKKKKEKK KKK KK KK KKK 
FREE MODULE LIST 
frees dynamic memory used by module linked list 
KHKKKKKKKKKKKKKKKKKK KKK KKK KKKKKKEKKEKK KKK KEKE KKK KK / 


void free module list() 


{ 


Module *1lp, 
*tp; 


mhead; 
1E] dP) ONES SF 


ehead = NULL; 

while (lp != NULL) ({ 
free(tp) ; 
tpe— lp; 


lp = tp->next; 
} 


free(tp); 


} 


[RRR KKK KKK KKK KEKE KEK KKK KEKE RK KKK KK KKK KKKKKEKKKKEKKKKEREEKE 


FREE POSITION LIST 


frees dynamic memory used by position linked list 


KHKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK ERE K EEE / 
void free position list() 


{ 


aed? 


Position *lp, 


*tp; 
tp = phead; 
lp = tp->next; 


phead = NULL; 


while (lp != NULL) { 


free(tp); 

tp = lp; 

lp = tp->next; 
} 
free(tp) ; 


} 


[RRRRRREKRRRKEKEKRRERKEKRRKEKKEKKERKREKKEKRKEKEKKKEKRKEKKKKEKKEKKKKKKKKKKKKE 


BUILD MONOTONE ORDER 
provides the modular structure in monotone order - 


insuring no forward references. Calls write modular to enter 
into ORACLE relship table 


KREKEKEKKEKKEKEKEREKEKKEKKKERKKKKEKEKERKEKRKKRKKKKEKEKEKEREREREREKEKER / 


void build monotone _ order(name) 


Eilat name[20]; /* model name */ 

{ 
Relship 1 oe /* pointer to relship linked list */ 
Module *mp; /* pointer to module linked list */ 
int rel_ pos = 1; /* relative position in 


the order */ 


/* install all pe on level 1 */ 


rp = rhead; 


while (rp != NULL) { 
if (strcmp(rp->e2type,"pe") == 0) { 
install _module("CONTAINS",name,"model", 
rp->e2name, rp->e2type,rel pos); 


TALS 


rel pos++; 
} 


rp = rp=>next; 


} 


/* initialize pointers to begining of lists */ 


rhead; 
mhead; 


rp 
mp 


while (mp != NULL) { 


/* check for all elements that call those on the 


list */ 
while(rp != NULL) { 
if (strcmp(mp->e2name,rp->e2name) == 0) { 


install module("CONTAINS",name,"model", 
rp->elname,rp->eltype,rel pos) ; 
rel pos++; 


} 
rp = rp->next; 


mp->next; 
rhead; 


mp 
rp 


[ RRKKKKKKKKEKKEKKKKKKKK KKK KKK KEKE KEKE KEKEKEKKEKEKKK KKK KKKKKKKKEK 


INSTALL MODULE 


This function places each module found in into the 
module linked list. If the element is already on the 
list in the same display level it will not be added. If it 
1s already on the list on a lower display level the lower 
level is converted to a place holder to allow the arc to 


Span levels 
KHEKKKKEKKKKKKEKKKKKKKKKEKKKKKKEKKKKEKKKKEKEKEKKKEKKKKKEKEEREKEKK KK / 


void 
install module(rtype,elname,eltype,e2name,e2type,rel_ pos) 


lie, 


chiax PEypel 12); /* type of relationship */ 
char eliname[20]; /* name of calling element */ 
char eltype[12]; /* type of calling element */ 
char e2name[20]; /* name of called element */ 
chiar e2type[12]; /* type of called element */ 
Ie rel pos; /* relative position in the order */ 
{ 

Module *mp; /* temp pointer to new structure */ 

Module *tp; /* temp pointer to linked list 

used to check if element is 
already in list */ 
/* create new structure */ 
mp = (Module *) malloc (sizeof(Module)); 


strcpy (mp->rtype,rtype); 

strcpy (mp->elname,elname) ; 
strcpy (mp->eltype,eltype) ; 
strcpy (mp->e2name,e2name) ; 
strcpy (mp->e2type,e2type) ; 


mp- 
mp- 


/* 1s list empty - add to head */ 


alg 


} 


>rel pos = rel pos; 
>next = NULL; 


(mhead == NULL) { 


mhead = mtail = mp; 
return; 


/* check list for to see if the element is there already 
if it is there is a forward reference and we need to 


tp 


change the rel _pos of the element on the list */ 


= mhead; 


while (tp != NULL) { 


if (strcmp(e2name,tp->e2name) 
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a0) { 


/* already in list - change the rel pos to 
eliminate forward reference */ 


tp->rel pos = rel _ pos; 
free (mp) ; 
return; 


} 


else 
tp = tp->next; 


} 


/* not found - so add to end of list */ 


mtail->next = mp; 
mtail = mp; 
return; 


} 


J BRR RRR RR KKK IRIE KKK KKK KIRKE KKK 
CHANGE SYMBOL 


This function will change the mathematical symbol in 
the symbol table to the new descriptive name entered. 
This will allow us to construct a generic rule using 
the descriptive names 


RHKKKEKEKKEKKKKKK KK KK KKK KKKEKKKEKEKKKEKK KKK KKKKKKKKKKKKKKKKKKK / 


void change_symbol (oldname, newname) 


char oldname[20], /* mathematical symbol name */ 
newname[20]; /* new descriptive name */ 
{ 
Symbol * sp; /* temp pointer to symbol 
table list */ 
sp = head; 
while (sp != NULL) { 
if (sp->s_type == IDENTIFIER) { 


if(strcmp(sp->s_ name,oldname) == 0) { 
strcpy(sp->s_name,newname) ; 


} 


ar2 1. 


} 


sp = sp->nhexe, 


[J BRRRRKKERKKREKE EKER KKK EKER KK ERE REE KK REKEKEKEKEKEKEEKKEKEKEKE 


BUILD_GRULES 


This function will concatenate the generic rule 


from the symbol table after the descriptive names 


have been entered. 


RHE KKKKEKKKKKKKKKKKKEKEKKE KKK EK KKEKEKEKKKKKEKEKKKEKKKEKEKEKKEKKEKE / 


void build _grules() 


{ 


Symbol *SD; /* temp pointer to symbol table */ 
int equation = 0; /* counter for the equation number */ 


char grule buf[80]; /* temp buffer for grule */ 
sp = head; 

grule buf[{0] = NULL; 

while(sp->s_type != END) { 


if (sp->equation == equation) { 
strcat(grule buf,sp->s_name) ; 

} 

else { 
insert grule(grule buf,equation) ; 
grule buf[0] = NULL; 
strcat(grule buf,sp->s_name) ; 
equation ++; 

} 


Sp = sp->next; 


} 
insert_grule(grule buf, equation) ; 
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[J BRRKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 


INSERT _GRULE 


Function to insert the new descriptive generic rule 
into the entity linked list. The rule is inserted 
into the function of test element that corresponds 

to the number equation. Note: This function relies 

on the fact that the the f and t entities are inserted 
in the order the are entered as mathematical equations. 


KHKKKKKKKKKKKKKKKEKKKEKKKKKKKEKEKKEKKKKKKEKKKKKEKKEKKKEKKKKKEKEKKEKKKKK / 


void insert_grule(grule,eq no) 


char grule[8s0}; /* descriptive grule to enter */ 
int eq_no; /* corresponding equation number */ 
{ 
Pie 1y *ep; /* temp pointer to entity linked list 
ae 
iic count =0, /* count of the feoret entity found */ 
ftest, /* return variables from strcmp test */ 
ttest; 
ep = ehead; 
while(ep != NULL) { 


ttest = strcmp(ep->etype,"t"); 


ftest strcemp(ep->etype,"f") ; 
if (ftest == || ttest == 0) { 
if (count == eq_no) { 
strcpy (ep->grule,grule) ; 
return; 
} 
eOunetrt ; 


} 


ep = ep->next; 


a2 3 


J RRREREKRKE RRR EKER RRR KKK KK KR EERE KKK EKRE RK EKEKKE KK KKK 
DATE : 1 Jan 89 - dsh 


PION ee oracle r.pc 


CONTENTS: function to read from the ORACLE database. 

This is the C version. This file must be precompiled with 
the PRO*C precompiler before compliling with the other 
files. This precompilitation is automatically done by using 


MAKE. 
KHKKKKKKK KKK KKK KERR RRA KKK KER ERE RE REKKEKKAEEREKEERERERERERE / 


#include "symbol.h" 
#include <stdio.h> 


/* fuction prototypes */ 


int read entity(void) ; 

int read _relship(void) ; 

void delete from relship(void) ; 
void delete from_entity (void) ; 


* ehead; 
* rhead; 


extern Entity 
extern Relship 


EXEC SQL BEGIN DECLARE SECTION; 


VARCHAR late li 210) ]] 
VARCHAR pwd[20]; 
VARCHAR ename[ 20]; 
VARCHAR etype[12]; 
VARCHAR dname[20]; 
VARCHAR idx[4]; 
VARCHAR idx stmt[50]; 
VARCHAR grange[20]; 
VARCHAR grule[80]; 
VARCHAR comments [80]; 
VARCHAR rtype[8]; 
VARCHAR elname[20]j; 
VARCHAR eltype[12]; 
VARCHAR e2name [20]; 
VARCHAR ezeyvpe([iZy, 


EXEC SQL END DECLARE SECTION; 
EXEC SQL INCLUDE SQLCA; 
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[J RRRKRRRRKKRKR EKER KK KKK KKK KKEKKEKKEKKKKKKEK KKK KKK EKER EKKKEKEKKKEKKEKES 


READ SCHEMA 


Function to read the global entity linked 
list from the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 


KHKKKKKKKKKKKKKKKKKKKKKKKE KK KKK KK KKKKEKKK KEK KEKKKKEKKEKKEKEKEKKEKEKE / 


int read_schema() 


{ 


/* login to oracle */ 


Semepy (uld.arr,"dsh"') ; 
uid.len = strlen(uid.arr) ; 
Seneoy (pwd.arr, thesis") ; 
pwd.len = strlen(pwd.arr) ; 


EXEC SQL WHENEVER ERROR GOTO errpt; 
EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
EXEC SQL DECLARE C1 CURSOR FOR 
SELECT 
ENAME, ETYPE, DNAME, IDX, IDX_ STMT, GRANGE, GRULE, COMMENTS 


FROM ENTITY, CONTAINZ WHERE ENTITY.ENAME = CONTAINZ.E2NAME 
ORDER BY REL POS; 


Bese SOL OPEN C1; 


EXEC SQL WHENEVER NOT FOUND GOTO finish; 
Borys; ) { 

PREG SOL FETCH Cl INTO 
sename, :etype,:dname,:idx,:idx_stmt, 


:grange,:grule, :comments; 


/* string is returned without so 
NULL we need to add it */ 


ename.arr[ename.len] = NULL; 
etype.arrf[etype.len] = NULL; 
dname.arr[{dname.len]) = NULL; 


idx.arr[{idx.len] = NULL; 


i 5 


idx’stmt.arrfidx stmt Wen j= NUE 
grange.arr[(grange.len] = NULL; 
grule.arr{grule.len] = NULL; 
comments.arr[{comments.len] = NULL; 


install entity(ename.arr,etype.arr,dname.arr,idx.arr, 
idx stmt.arr,grange.arr,grule. anu,;conmenEs-amr); 


} 


fed Sia 
EXEC «SOL CLOSE Cl; 


EXEC SQL WHENEVER SQLERROR CONTINUE; 

EXEC SQL COMMIT WORK RELEASE; 

return; 

errpt: 

printf("\n%.70s \n",sqlica.sqlerrm.sqlerrmc) ; 


EXEC SQL ROLLBACK WORK RELEASE; 
return. 


[RRR KKK K KKK KKK KKK KK KEKE KK KKK KKKKRKEKKKEKKKKKEKKKKKKKKK 


READ RELSHIP 
Function to read the global relship linked 
list from the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 


KHEKKKKKEKKEKKK KKK KK KKK KKK KEKE KKK KKK KKK KK KKK KKK KKKKKEKKEKK / 


int read _ relship() 


{ 

/* login to oracle */ 
strepy(uid.arr,"dsh"') ; 
uid.len = strlen(uid.arr); 
strcpy(pwd.arr,"thesis") ; 
pwd.len = strlen(pwd.arr) ; 


EXEC SQL WHENEVER SQLERROR goto errpt; 
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EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
/* this could be ordered by rel pos ?? */ 
EXEC SQL DECLARE C2 CURSOR FOR 
SELECT E1NAME,E1TYPE, E2NAME, E2TYPE 
FROM CALLS ORDER BY E2NAME,E1NAME; 
EXEC SQL OPEN C2; 
EXEC SQL WHENEVER NOT FOUND GOTO finish; 
former ;;) { 
EXEC SQL FETCH C2 INTO :elname,:eltype, :e2name, :e2type; 


/* string is returned without so NULL we need to add it 


on 


elname.arrf[elname.len] = NULL; 
eltype.arr[eltype.ien] = NULL; 
e2name.arrf[e2name.len] = NULL; 
e2type.arr[e2type.len] = NULL; 


install relship("CALLS",elname.arr, 
eltype.arr,e2name.arr,e2type.arr) ; 


} 


manish: 
EXEC SQL CLOSE C2; 


EXEC SQL WHENEVER SQLERROR CONTINUE; 
EXEC SQL COMMIT WORK RELEASE; 


return; 
errpt: 
printf("\n%.70s \n",sqlca.sqlerrm.sqlerrmc) ; 


EXEC SQL ROLLBACK WORK RELEASE; 
return; 


te 7 


[J RRRKKKKEKEKEKEEKEEKEKREREREREREEEKKEEEERKEKEKEKREKKEKKEKEKKKKKEKKEKKKEEK 


DELETE _FROM_RELSHIP 


Function to delete the ORACLE RDBMS relship table. 
Assumes predefined table and user: dsh password: thesis 


KKKKKKKKKKKKKK KEKE EEE KEKE KEKEEKEKEEEEEEEREKREKREKKEKKEKE / 


void delete from_relship() 


{ 


/* login to oracle */ 


strepy (uld-earr, “dsh 7 

uid.len = strlen(uid.arr); 

strcepy (pwd.arr,"thesis") ; 

pwd.len = strlen(pwd.arr); 

EXEC SQL WHENEVER SQLERROR goto errpt; 
EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
EXEC SQL DELETE FROM RELSHIP; 

finish: 

EXEC SQL WHENEVER SQLERROR CONTINUE; 

EXEC SQL COMMIT WORK RELEASE; 

return; 

GrEDE: 

printf("\n%.70s \n",sqlea. sqlerrm-saqlermmene). 


EXEC SQL ROLLBACK WORK RELEASE; 
return; 


£28 


J RRRRRKEERKKKKEKKKKKEKKKKEKEKKEKKEKKEKKKKEKKKEKKEKKKKEKKEKKKKKKKKKKKKKE 
DELETE FROM ENTITY 


Function to delete the ORACLE RDBMS entity table. 
Assumes predefined table and user: dash password: thesis 


KHEKKKKKKEKKKKKKKKKKKKKKKKEKKEKEKKKEKEKEKEKEKEKKKEKKEKKEKKEKKEKKEEKKEKKEK / 
void delete from _entity() 


{ 

/* login to oracle */ 
ewmEepy (uid. arr, "dsh"') ; 

miaslen = strlen(uid.arr) ; 

BiEiepy (pwd.arr, thesis") ; 

pwd.len = strlen(pwd.arr); 

EXEC SQL WHENEVER SQLERROR goto errpt; 
EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
Paeec SOL DELETE FROM ENTITY; 

Grn ish: 

EXEC SOL WHENEVER SQLERROR CONTINUE; 


EXEC SQL COMMIT WORK RELEASE; 


return; 


errpt: 

petmcet("\ns.70s \n",sqlica.sqlerrm.sglerrmc) ; 
EXEC SQL ROLLBACK WORK RELEASE; 

return; 
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J RRERRRR EKER RIKER EHR HR REE RRA KHER RAKE RRA KKK REKKE 
DATE: 10,3 anes 9S each 


FILE: oracle w.pc 


CONTENTS: function to write to the ORACLE database. This 
isthe C version. This file must be precompiled with the 
PRO*C precompiler before compliling with the other files. 
This precompilitation is automatically done by using MAKE. 
KH KK IK KK IK IKK IK II KI RHI KIKI KIKI KIKI KI IKI KIARA RI RIERA KIA / 
#include “symbol.h" 

#include <stdio.H> 


/* fuction prototypes */ 
int write entity(void) ; 


int write_relship(void) ; 
int write_module(void) ; 


extern Entity * ehead; 
extern Relship * rhead; 
extern Module * mhead; 


EXEC SQL BEGIN DECLARE SECTION; 


VARCHAR uid[20]; 
VARCHAR pwd[20]; 
VARCHAR ename[20]; 
VARCHAR etype[12]; 
VARCHAR dname[20]; 
VARCHAR 1ax[4]; 
VARCHAR idx stmt[50]; 
VARCHAR grange[20]; 
VARCHAR grule[80]; 
VARCHAR comments[80]; 
VARCHAR rtype[12]; 
VARCHAR elname([ 20]; 
VARCHAR eltype[12]; 
VARCHAR e2name[20]; 
VARCHAR e2type[12]; 
arte rel_ pos; 


EXEC SQL END DECLARE SECTION; 
EXEC SQL INCLUDE SQLCA; 
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J RRRKRREKKKKKKKKKKKKKKKKKKKKKKKKK KKK KKEKKKKKKKKKKKKKKKKKKKKKKK 


WRITE ENTITY 
Function to load the global entity linked 


list into the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dash password: thesis 


RREEKKKKKEKKKKKKKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKEKKEKK / 


int write_entity() 

{ 

Entity * ep; /* temp pointer to linked list */ 

/* login to oracle */ 

Stmepy(uid.arr, “dsh"') ; 

uid.len = strlen(uid.arr) ; 

strcepy(pwd.arr,"thesis") ; 

pwd.len = strlen(pwd.arr) ; 

EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 

ep = ehead; 

while (ep != NULL) { 
strcpy(ename.arr,ep->ename) ; 


ename.len = strlen(ename.arr) ; 


strcpy(etype.arr,ep->etype) ; 
etype.len = strlen(etype.arr) ; 


strcpy(dname.arr,ep->dname) ; 
dname.len = strlen(dname.arr) ; 


strcpy(idx.arr,ep->1idx) ; 
idx.len = strlen(idx.arr) ; 


strcpy(idx_stmt.arr,ep->idx_ stmt); 
idx _stmt.len = strlen(idx_stmt.arr) ; 


strcpy (grange.arr,ep->grange) ; 
grange.len = strlen(grange.arr) ; 


Ji cya 


strcpy(grule.arr,ep->grule) ; 
grule.len = strlen(grule.arr) ; 


strcpy (comments.arr,ep->comments) ; 
comments.len = strlen(comments.arr) ; 


EXEC SQL INSERT INTO ENTITY 
(ename,etype,dname,idx,idx_stmt,grange,grule,comments) 
VALUES (:ename, :etype, :dname, :idx, 

:idx_ stmt, :grange,:grule,:comments) ; 

EXEC SQL COMMIT WORK; 

ep = ep->next; 

i 

EXEC SQL COMMIT WORK RELEASE; 

return; 

errpt: 

printf("\n%.70s \n",sqlica.sqlerrm.sqlerrmc) ; 


EXEC SQL ROLLBACK WORK RELEASE; 
return; 


} 


[J RRRKKKEKKEKEKKEKKEKKEKKKKEK KKK KKKEKKKKKKKEKKEKEKEKKKEKKEKKEKKEKRKEKKEKKKEKKKKKS 


WRITE RELSHIP 
Function to load the global relship linked 


list into the corresponding ORACLE RDBMS tables. Assumes 
predefined table and user: dsh password: thesis 


RAKE KKKKKKEKKKKKEKKKKEKKEKKKKKKKKKKKKK KK KKK KEKE KKKEKKEKEKKKKKKKEKKKE / 


int write _relship() 


{ 
Relship * rp; 


/* login to oracle */ 


SEGCPY (alldnaist, deh! )7- 


iS 2 


usd. en = strlen(wid.arr); 
strcepy(pwd.arr,"thesis") ; 
pwd.len = strlen(pwd.arr) ; 
EXEC SQL WHENEVER ERROR GOTO errpt; 
EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
rp = rhead; 
while (rp != NULL) { 
BPerepy(reype.arr,rp->rtype) ; 
rtype.len = strlen(rtype.arr) ; 


strcpy(elname.arr,rp->elname) ; 
elname.len = strlen(elname.arr) ; 


strcpy(eltype.arr,rp->eltype) ; 
eltype.len = strlen(eltype.arr) ; 


strcpy(e2name.arr,rp->e2name) ; 
e2name.len = strlen(e2name.arr) ; 


strcepy (e2type.arr,rp->e2type) ; 
e2type.len = strlen(e2type.arr) ; 


EXEC SQL INSERT INTO RELSHIP 
(rtype,elname,eltype,e2name,e2type) 
VALUES (:rtype,:elname,:eltype, :e2name, :e2type) ; 
EXEC SQL COMMIT WORK; 
moo — one xt; 
} 

EXEC SQL COMMIT WORK RELEASE; 

return; 

errpt: 

Pislneel("\n%.70s \n",sgqlca.sqlerim sqlesrmc) ; 


EXEC SQL ROLLBACK WORK RELEASE; 
return; 


} 
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J BRR REKKEKEKKKKEK EK KKK KEKKEEKEKKKREKKEKKKKEKEKKEKKEKKEKEKKKEKKKEKKKKKKKKEE 


WRITE MODULE 
Function to load the global module linked 


list into the relship ORACLE RDBMS table. Assumes 
predefined table and user: dsh password: thesis 


KKKKKKKKKEKKKKKKKKKKKKKKKEKKEKKKKKKEKKKKEKKKKKKKKEKKEKKEKKEKKKEEE / 


int write _module() 


{ 
Module * mp; /* pointer to the module linked list */ 


/* login to oracle */ 


SELrecpY (Uld.arr, "dsh je 

uid.len = strlen(uid.arr) ; 

Strepy (pwd.arr, "thesis! ); 

pwd.len = strlen(pwd.arr) ; 

EXEC SQL WHENEVER ERROR GOTO errpt; 

EXEC SQL CONNECT :uid IDENTIFIED BY :pwd; 
mp = mhead; 

while (mp != NULL) { 


strcpy(rtype.arr,mp->rtype) ; 
rtype.len = strlen(rtype.arr) ; 


strcpy (elname.arr,mp->elname) ; 
elname.len = strlen(elname.arr) ; 


strcpy(eltype.arr,mp->eltype) ; 
eltype.len = strilen(eltype.arr); 


strcpy (e2name.arr,mp->e2name) ; 
e2name.len = strlen(e2name.arr) ; 


strcpy (e2type.arr,mp->e2type); 
e2type.len = strlen(e2type.arr); 


rel pos = mp->rel_ pos; 
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EXEC SQL INSERT INTO RELSHIP 
(rtype,elname,eltype,e2name,e2type,rel pos) 
VALUES (:rtype, :elname, :eltype, :e2name, :e2type,:rel pos) ; 


EXEC SQL COMMIT WORK; 
mp = mp->next; 
} 
EXEC SQL COMMIT WORK RELEASE; 
Pew uien; 
Grrpc: 
printf("\n%.70s \n",sqlca.sqlerrm.sqlerrmc) ; 


EXEC SQL ROLLBACK WORK RELEASE; 
return; 


} 


iS ee. 


10. 
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